ソフトリファレンス使って

print OUT "@{'NEW'.$num}";

とすればその部分はいけると思うけど、全体見直した方がいくない？