Select Code to Download

foreach my $orders (values %data) {
    my @orders = sort {$b <=> $a} @$orders;
    $orders = [@orders [0 .. ($#orders < 5 ? $#orders : 4)]];
}