Select Code to Download

$key . "\t"' . $data{$key} . "\n";

          '5557a6bed3793133754d288e2b58763a' => [
                                                  [
...
                                                    '16501' => 1
                                                  }
                                                ]

5557a6bed3793133754d288e2b58763a        ARRAY(0x441c780)

5557a6bed3793133754d288e2b58763a     [[2197,840,751,6],{"16501":1}]

foreach $key (keys %data) {
  print $key . "\t" . "$data{$key}" . "\n";
}