Select Code to Download

use strict;
use warnings;
...
        );

print Dumper \%bar;

$VAR1 = {
          'ARRAY(0x18ae770)' => 'zebras',
          'ARRAY(0x17f0ec8)' => 'elephants'
        };

my @foo = qw/1 2 3 4 5 6/;
my @fu  = qw/1 2 3 4 5 6/;
...
        );

print Dumper \%bar;

$VAR1 = {
          '123456' => 'zebras'
        };