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