my %a = map { $_ => 1 } @a;
my @b = grep { $a{$_->[1]} } @d