my ($first) = sort @array;