my $num = 44; print NEWFILE "$num\n";