open $fhA, '<', '1.dat' or die $!;
open $fhB, '<', '2.dat' or die $!;
@B_lines = <$fhB>;
while (my $lineA=<$fhA>){
    for my $lineB (@B_lines) {
        print $lineA,' ', $lineB;
    }
}