sub shortest {
    my $shortest = length $_[0];
    (grep {
       $shortest = length
         if($shortest > length);
       $shortest == length;
     }@_)[-1]);
}