Help for this page
sub mainCSV { open (my $inputfile1, '<', "$inputfile") or die "Unable to open $i +nputfile1: $!"; ... close $inputfile1; }