#!/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__