my %a = map { $_ => 1 } @a;
my @b = map {
  ($a{$_->[1]}) ? $_ : ()
} @d