@arr = ('medium', 'longest of all', 'short');

@sorted = map  { $_->[0] }
          sort { $b->[1] <=> $a->[1] }
          map  { [$_, length] } @arr;

print "$_\n" for @sorted;