#! /usr/local/bin/perl
use warnings ;
use strict ;

#Die Roller: uses 4d6 discarding the lowest number
#rerolling any roll of 1

my $roll = 6 ;

until ($roll == 0) {
    chomp $roll ;
    $roll -- ;
    my $d61 = int(rand(6) + 1) ;
    my $d62 = int(rand(6) + 1) ;
    my $d63 = int(rand(6) + 1) ;
    my $d64 = int(rand(6) + 1) ;
    print "$d61, $d62, $d63, $d64\n\n" ;
}