Select Code to Download

use strict;
use warnings;
...
      ( sort { $b <=> $a } map $_->[2], @$arrayRef )[ 0 .. 2 ];
    @$arrayRef = grep exists $nums{ $_->[2] }, @$arrayRef;
}

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