my @ar=(1,2,3,4,5,6);
my ($x,$y,$z)=@ar;