Select Code to Download

@temp = map { length $_ } @strings;
@sorted = @strings[sort{$temp[$a]<=>$temp[$b]} $[..$#temp];