duh! (smacks own head) You're right.

@ary1 = grep {!exists $h2{$_} or $dupes{$_}=0} @ary1;
@ary2 = grep {!exists $h1{$_}                } @ary2;
[download]

andye.

minor edit