($a,$b,@X,$c) =  (%y,$x,1,2,3);   
#              => @X = (x1,x2,x3,1,2,3) , $a = "y1",   $b = "Y1", 
#              => insbesondere $c = undef