my @array = qw(a b c);
my %hash;

$hash{ key } = \@array;