my @l3= map {(join(",",@l2) =~ /\b$f\b/)?$f:"null"} @l1; ?