Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...
    $min_top = $top3[2][2];
}
print Dumper @top3;

$ perl  subdiscard.pl
$VAR1 = [
...
          'something',
          'else'
        ];

use strict;
use warnings;
use Data::Dumper;
...
    $min_top = $top3[2][2];
}
print Dumper \@top3;

$ time perl  subdiscard2.pl 1000000
$VAR1 = [
          [
...
real    0m2.497s
user    0m2.386s
sys     0m0.108s

$ time perl  subdiscard3.pl 1000000
$VAR1 = [
...
real    0m7.605s
user    0m7.518s
sys     0m0.093s