You've misidentified the line with the error:

########
# Right here
open(OUT, $o_file) or die "$o_file failed to be created: $!";
# $o_file defined above
########
print OUT, @output;
#        ^ Here it is -- Z.
close OUT;
[download]

The error is as marked, in the print statement.

After Compline,
Zaxo