Ähm. Das hat du doch schon gemacht. Übertrage das auf meinen Code:
if(open(my $ofh, '>>', $out_path))