my @list2 = qw(one two three);
my %lookup_hash;
@lookup_hash{@list2} = 'foo';

use Data::Dumper;
print Dumper \%lookup_hash;