open my $fh, '>>', $file or die $!;