my @x = ($a,$b) = (4,5,6);   # @x = (4,5)

##</code><code>##

my $x = ($a,$b) = (4,5,6);   # $x = 3