Select Code to Download

my @sort;
$sort[$_->[2]] = $_ for @masterArray;
...
my @top = map {delete $sort[-1]} 1..3;

say Dumper \@top;

$VAR1 = [
          [
...
            'else'
          ]
        ];