open(my $fh, '<', $file) or die "Error reading file $file: $!";