open (my $fh, '<' ,$filename) or die "ERROR: could not open $filename: $!";
while (<>) {