open my $file_one, '<', 'ABC' or die $!;