my %h; @h{@data2} = (); delete @h{@data}; my @ids = keys %h;