Here is my try

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

Regards,
Murugesan Kandasamy.