How about .. my $first = (sort {length($a) <=> length($b)} @array)[0];