use strict;
use warnings;

open(file_one,"<","ABC")or die $!;
while(my $line = <file_one>)
{
        open(file_two,"<","CDE") or die $!;
                while(my $line2=<file_two>)
                {
                        print "line : $line  line2 : $line2 \n";
                }
                close(file_two);
}