open(my $fh, ">>", $filename) or die "Err opening $filename: $!";