open my $fh_new, '>', $filename . "_Result" or croak "can't open file: $!";