Select Code to Download

my %hash = ( ... );
my $orderby = "age" # or name, dob, etc
...
__END__
# my test script:
perl -le '@x=(1,4,5,2,3,9,6,8,7); $direction="DESC"; print for map { $
+direction eq "DESC" ? reverse @$_ : @$_ } [sort @x] '