Select Code to Download

    foreach my $val (@values){
        $val *= $df * 50 ;
    }
    print join("\t", @values), "\n";

    print join("\t", map { $_ * $df * 50 } @values), "\n";

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