my @lista=qw(a b c d e);
my @listb=qw(c p k a r p b);

my $regexp='\Q'.join('\E|\Q',@lista).'\E';
my @result=grep{!/$regexp/}@listb;

print "@result\n";