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

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