Maybe see open? I'm sorry, but I can't help you further because I don't understand the problem you have. If you want to open more than one file handle at the same time, use lexical filehandles:

open my $file1, '<', 'numb.txt' or die "numb.txt: $!";
open my $file2, '<', 'numb.txt' or die "num.txt: $!";

...
[download]