Well folks, here's a one-liner.

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

outputs: hi.

:)