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;