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

##</code><code>##

          '5557a6bed3793133754d288e2b58763a' => [
                                                  [
                                                    2197,
                                                    840,
                                                    751,
                                                    6
                                                  ],
                                                  {
                                                    '16501' => 1
                                                  }
                                                ]

##</code><code>##

5557a6bed3793133754d288e2b58763a        ARRAY(0x441c780)

##</code><code>##

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

##</code><code>##

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