open A, "a.txt";my @a = ; chomp @a;close A;open B, "b.txt";my @b = ; chomp @b;close B;foreach my $a ( @a ) { foreach my $b ( @b ) { print "$a: "; print "$b " if $b =~ /\Q$a\E/g; } print $/;}
jsdjkfdiwhbdbvn vaknvdbmdnvsmnfdsfwefd
