Select Code to Download

#!/usr/bin/perl -l
use strict;
...

print "@arr";
print "@sorted";

my @sorted = sort { $hash{$a} cmp $hash{$b} } @arr;