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