my @array = qw(hello superduper hi);
my $shortest = $array[0];
for( @array ) { 
    $shortest = $_ if length $_ < length $shortest;
}