open(my $csv, "<", $file) or die "Unable to open $file: $!";