open my $fh, '>>', 'test.out';