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