Select Code to Download

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