Using my with parentheses and only one variable

Question

I sometimes see Perl code like this:

my ( $variable ) = blah.... 

What is the point of putting parentheses around a single variable? I thought parentheses were only used when declaring multiple variables, like:

my ( $var1, $var2, $var3 ) = blah... 

Answer 1

There are several scenarios when there is a difference:

1. When array is on right side

   my @array = ('a', 'b', 'c'); my  $variable  = @array;           #  3   size of @array my ($variable) = @array;           # 'a'  $array[0] 

2. When list is on right side

   my  $variable  = qw/ a b c d /;    # 'd'  last  item of the list my ($variable) = qw/ a b c d /;    # 'a'  first item of the list 

3. Subroutine with variable (array/scalar) return value

   sub myFunction {   ...   return (wantarray() ? @array : $scalar); } my  $variable  = myFunction(...);  # $scalar   from the subroutine my ($variable) = myFunction(...);  # $array[0] from the subroutine