Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @sorted = @hash{sort @list};

print "@sorted\n";

@hash{sort @list} = sort @list2;

my @sorted = @hash{@list};