#!/usr/bin/perl
@A = qw/dog cat squirrel wolf/;
@B = qw/dog cat monkey donkey/;
undef  @C{ @A };
delete @C{ @B };
say for keys %C;

__END__

prints:
squirrel
wolf