Select Code to Download

use warnings;
use strict;
...
map { push @{$res{$_->[2]}}, $_ } @arr;

warn Dumper values %res;

$ perl tst.pl
$VAR1 = [
...
            30
          ]
        ];