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


##</code><code>##

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

##</code><code>##

@a = ('d:\1\1\1.txt',
'd:\1\1\2.txt',
'd:\1\1\3.txt',
'd:\1\1\4.txt')

##</code><code>##

@b = ('\1\2.txt',
'\1\3.txt'