my @num = (8, 9, 3, 5, 1, 2, 6, 7) ;
my @all = sort { $b <=> $a } @num ;

##</code><code>##

my $num5 = 5 ;
my $num4 = 4 ;
my $num3 = 3 ;
my $num2 = 2 ;

my @all = sort { $b <=> $a } $num4, $num2, $num5, $num3 ;

##</code><code>##

my @d1s = sort { $b <=> $a } $d61 ;

##</code><code>##

$sum += $_ for @rolls;

##</code><code>##

#! /usr/local/bin/perl
use diagnostics ;
use warnings ;
use strict ;
use List::Util qw (sum) ;		#not in the standard distro

my $roll = 6 ;

until ($roll == 0) {			#rolls the dice 6 times  
    $roll -- ;
    
    my @d61 = int(rand(5) + 2) ;	#6 sided die with no 1
    my @d62 = int(rand(5) + 2) ;
    my @d63 = int(rand(5) + 2) ;
    my @d64 = int(rand(5) + 2) ;
    
    my @all = sort 				#split line for looks
    { $b <=> $a } @d61, @d62, @d63, @d64 ;	#sorts rolls 
						#to prepare for
    pop @all ;					#pop removing 
    						#the lowest roll
    my $sum = sum(@all) ;			#before adding
    
    print "\n@all - $sum\n" ; 
}