Select Code to Download

'555549' => [
              '172193',
...
              '14835',
              '16718'
            ],

my %result;
while ( my $rec = $data->fetchrow_hashref ) {
    push @{ $result{ $rec->{"ID"} } }, $rec->{"item"};
}