Select Code to Download

sub test {
   my $var1             = @_;
...
}

test('abc', 'def');

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