Select Code to Download

#!/usr/bin/perl
use Data::Dumper;
...
__DATA__
334 Capped 28 5034366 16777215 NULL NULL NULL 
373 Capped 28 5034366 16777215 NULL NULL NULL

$VAR1 = {
          '5034366' => [
...
                         ]
                       ]
        };