Select Code to Download

my $N = 20;
my $collect = 5 * $N;
...
    @top = sort { $b->[1] <=> $a->[1] } @top;
    splice @top, $N;
}

my $N = 20;
my $collect = 5 * $N;
...
    @top = sort { $b->[1] <=> $a->[1] } @top;
    splice @top, $N;
}