print "my header ...\n";
while (<FILE>){
    ...

##</code><code>##

...
open OUTFILE, ">", "outfile.txt" or die $!;
print OUTFILE "my header ...\n";
while (<FILE>){
    print OUTFILE join("\t", map { $_ * $df * 50 } split /\t/), "\n";
}