%tmp = map{ $_ => $_ } @b;
@inte = grep(/$tmp{$_}$/, @a) ;