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