use strict;
use warnings;
use Data::Dumper;

my @foo = qw/1 2 3 4 5 6/;
my @fu  = qw/1 2 3 4 5 6/;
my %bar = (
           \@foo => 'elephants',
           \@fu  => 'zebras'
        );

print Dumper \%bar;

##</code><code>##

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

##</code><code>##

my @foo = qw/1 2 3 4 5 6/;
my @fu  = qw/1 2 3 4 5 6/;
my %bar = (
           join ('',@foo) => 'elephants',
           join ('',@fu)  => 'zebras'
        );

print Dumper \%bar;

##</code><code>##

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