use strict;
use warnings;

my $df = 10;
while (<DATA>) {
    chomp $_;
    my @values = split;
    foreach my $val (@values) {
        my $DNA_conc = $val * $df * 50;
        print $DNA_conc;
        print "\n";
    }
}

__DATA__
0.250   0.413   0.432   0.345   0.786   1.001   0.987 
0.984   0.125   0.678   0.243   0.657   0.342   0.743   
0.986   0.734   0.764   0.650   0.457   0.965   0.836