No grep required.

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