my %seen; @seen{ @original_1 } = (); delete @seen{ @original_2 }; my @original_1_only = keys %seen;