Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
}

print Dumper(\%data);  # this will show you how the structure looks

$VAR1 = {
          'IL12::1::287' => [
...
                            ]
         ...
        };