Select Code to Download

my @sorted_by_length = sort { length($a) <=> length($b) } @elements;

my @sorted_by_length = 
   map { $_->[0] }
   sort { $a->[1] <=> $b->[1] }
   map { [ $_, length($_) ] } @elements