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