Select Code to Download

push @holder, $key;
...
my @holder_sorted = sort { $hash{$a} <=> $hash{$b} } @holder;
print("@hash{@holder_sorted}\n");

my %holder;
...
...
...
my @holder_sorted = sort { $holder{$a} <=> $holder{$b} } keys @holder;
print("@holder{@holder_sorted}\n");