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