@x = ( x1, x2, x3 ); 
%y=( y1 => "Y1 );

( $a, $b, $c ) = ( %y, $x, 1, 2, 3 );   

#                   = ( y1, Y1, x1, x2, x3, 1, 2, 3) 
#                   => $a == "y1",  $b == "Y1",  $c == "x1"