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

##</code><code>##

   @temp = map { [ length $_, $_ ] } @strings;

##</code><code>##

   @temp = sort { $a->[0] <=> $b->[0] };

##</code><code>##

   @sorted = map { $_->[1] } @temp;