my @ar   = qw/ foo bar baz /;
my %hash = ( one => @ar );
print $hash{one};

__output__

foo