sub test {
   my $var1             = @_;
   my ($var2)           = @_;
   (my $var3)           = @_;
   my ($var4, $var5)    = @_;
   (my $var6, my $var7) = @_;

   print("my \$var1             = \@_;     -> $var1\n");
   print("my (\$var2)           = \@_;     -> $var2\n");
   print("(my \$var3)           = \@_;     -> $var3\n");
   print("my (\$var4, \$var5)    = \@_;     -> $var4, $var5\n");
   print("(my \$var6, my \$var7) = \@_;     -> $var6, $var7\n");
}

test('abc', 'def');

##</code><code>##

my $var1             = @_;     -> 2
my ($var2)           = @_;     -> abc
(my $var3)           = @_;     -> abc
my ($var4, $var5)    = @_;     -> abc, def
(my $var6, my $var7) = @_;     -> abc, def