Select Code to Download

my @ordered_keys;

...
   print "  Total: $val->{Total}\n";
   print "  Value: $val->{Value}\n\n";
}

my $sorter;

...
   print "  Total: $val->{Total}\n";
   print "  Value: $val->{Value}\n\n";
}