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