my ($x,$y,$z)=sort @foo;