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