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);

}