Select Code to Download

open my $fhA, '<', '1.dat' or die $!;
open my $fhB, '<', '2.dat' or die $!;
...
        print $lineA,' ', $lineB;
    }
}

open $fhA, '<', '1.dat' or die $!;
open $fhB, '<', '2.dat' or die $!;
...
        print $lineA,' ', $lineB;
    }
}