my($name, @num) = split " "; 
my @log10; for my $num (@num) { 
        push @log10, log10($num); 
} 
print $name, " ", join(" ", @log10), "\n";