my ($x,$y,$z)=sort @foo; my @top=(sort @foo)[1..$n];