Select Code to Download

@sorted = map  { $_->[0] }
          sort { $a->[1] <=> $b->[1] } # use numeric comparison
          map  { [$_, length($_)] }    # calculate the length of the s
+tring
               @unsorted;

#!/usr/bin/perl

...
} @arr;

print "\nsorted = @sorted\n";