(my $a, @a) = @a

##</code><code>##

my ($a, @a) = @a