print my $shortest = ( sort { length($a) <=> length($b) } qw( hello superduper hi ) )[0];