Select Code to Download

    my @d1s = sort { $b <=> $a } $d61 ;
    my @d2s = sort { $b <=> $a } $d62 ;
    my @d3s = sort { $b <=> $a } $d63 ;
    my @d4s = sort { $b <=> $a } $d64 ;

#!/usr/bin/perl

...
    print "\n@rolls: $sum\n\n";
}
__END__