in reply to Finding the Shortest Element in an Array
use List::Util qw/reduce/; @array = qw( hello superduper hi ); print reduce { length( $a ) < length( $b ) ? $a : $b } @array; [download]