{ my %test_hash; @test_hash{@list} = (); sub efficient_test { exists $test_hash{+shift}; } }