use warnings;
print " Enter the dilution factor. \n";
chomp ($df = <STDIN>);
open FILE, "96well.txt" or die $!;
while (<FILE>){
 chomp $_;
  @values = split('\t', $_);

foreach $val (@values){
$DNA_conc = $val * $df * 50 ;
print $DNA_conc;
print"\n";
}
}
 close (FILE);