########
# 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;