...
while (<FILE>){
    print join("\t", map { $_ * $df * 50 } split /\t/), "\n";
}