my @a = qw(1 2 3);
my %h = (
    'key' => \@a,
);

print $h{'key'}->[0]; # Gibt das 1. Element von @a aus.