#! perl -slw
use strict;

my @source=(1, 2, 3, 4, 5, 7);
my @target=(0, 1, 3, 4, 6);

my( $src, $tgt ) = ( '', '' );
vec( $src, $_, 1 ) = 1 for @source;
vec( $tgt, $_, 1 ) = 1 for @target;

my @srcNotTgt = grep !vec( $tgt, $_, 1 ), @source;
my @tgtNotSrc = grep !vec( $src, $_, 1 ), @target;

print "srcNotTgt:@srcNotTgt";
print "tgtNotSrc:@tgtNotSrc";
__END__
C:\test>997024
srcNotTgt:2 5 7
tgtNotSrc:0 6