Select Code to Download

#!/usr/bin/perl

...
foreach ( sort { $b <=> $a } keys(%result) ) {
    print "$_ \t: $result{$_}\n";
}

package payment;

...
}

1;