Select Code to Download

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

my $num5 = 5 ;
my $num4 = 4 ;
...
my $num2 = 2 ;

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

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

$sum += $_ for @rolls;

#! /usr/local/bin/perl
use diagnostics ;
...
    
    print "\n@all - $sum\n" ; 
}