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

my $roll = 6 ;

until ($roll == 0) {  
    chomp $roll ;
    $roll -- ;
    
    my $d61 = int(rand(5) + 2) ;		
    my $d62 = int(rand(5) + 2) ;
    my $d63 = int(rand(5) + 2) ;
    my $d64 = int(rand(5) + 2) ;
    
    my @d1s = sort { $b <=> $a } $d61 ;
    my @d2s = sort { $b <=> $a } $d62 ;
    my @d3s = sort { $b <=> $a } $d63 ;
    my @d4s = sort { $b <=> $a } $d64 ;
    
    my @all = sort { $b <=> $a } @d1s, @d2s, @d3s, @d4s ;
    print "\n@all \n\n" ; 
}

##</code><code>##

4 4 3 2

6 6 2 2

6 6 5 2

5 3 3 2

5 4 4 3

6 4 3 2