@a=qw(adddddd bcdef deed superlative);
($shortest)=sort{length($a)<=>length($b)}@a;
print $shortest;