open A, '1.dat' or die $!;
while (my $lineA=<A>){
    open B, '2.dat' or die $!;
    while(my $lineB=<B>){
        print $lineA,' ', $lineB;
    }
    close B;
}