name1 1481.100 1436.550 1460.410 1444.460 1049.120 1076.890 1085.500 1053.100
name2 1978.700 1949.910 1734.030 1694.530 1930.000 2005.530 1696.960 1844.810
name3 ...

##</code><code>##

my $Name = "";
my $Value1 = 0;
my @files = glob ('*.txt');

sub log10 {
my $n = shift;
return log($n)/log(10);
}


open (MYFILE, '>data.txt');



foreach my $file (@files)
{
#print "$file\n";
$test = "$file";
open (TEST,"$test") || die "couldn't open the file YEASTFASTA:$!";
while (<TEST>)
{
my $line = $_;

if ($_=~/^\d+[_]\w+\s+(\S+)\s+(\S+)\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+.*/)
{
#$Name = $1;
$Value1 = $2;
$LogValue = log10($Value1);
print MYFILE "$LogValue";
#print "d $LogValue \n";
}

print MYFILE "$_";
}
close TEST || die "can't close:$!";
close (MYFILE);

}

##</code><code>##

1.37852508154491 name1 23.907 15.022 25.234 22.573 21.541 13.972 25.076 17.099 YLR331C
3.17058438193919 name2 1481.100 1436.550 1460.410 1444.460 1049.120 1076.890 1085.500 1053.100

##</code><code>##

name1 1.3785250815449 log(value)  log(value)...(log of all the values)
name1 log(value)  log(value)...(log of all the values)