@list = ( one , two , three );
%hash = ( one => 1 , two => 2 , three => 3 );

foreach (@list) {
  if ( $hash{$_} ) { $_ = '' ; }
}