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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $tosses = 5;
my $dice   = 4;

foreach (1 .. $tosses) {
    my @rolls = sort {$b <=> $a} map {2 + int rand 5} 1 .. $dice;
    pop @rolls;
    my $sum = 0;
       $sum += $_ for @rolls;
    print "\n@rolls: $sum\n\n";
}
__END__