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