open (my $INFILE_1, '<', 'name_o_file.txt') || croak "Cannot open input file: $!\n";