Select Code to Download

use strict;
use warnings;
...
        $data{$license} = [ $product, $id, $code, $name ];
}
print Dumper \%data/

$VAR1 = {
          'Airtime_Tool' => [
...
                            'aero'
                          ]
        };