Как узнать, являются ли значения массива ключами хеша в Perl?

У меня есть массив, скажем, @array. Я хотел бы знать, какие значения массива образуют ключи хеша, скажем, %hash. Есть ли простой способ сделать это иначе, чем использовать цикл for?

например,

 @array = qw (a b c);   
 %hash = ( a => 1, b=> 2 );    

В этом случае он должен просто вывести «a» и «b».