#!/usr/bin/perl

while ($line = <>) {
   convertToDb($line);
}

exit(1);

sub convertToDb {
   my ($line) = @_;
   @data = split(/\s+/, $line);
   foreach $item (@data) {
      $value = sqrt($item)/10.0;
      $value = int($value * 1000) / 1000.0;
      print $value;
      print " ";
   }
   print "\n";
}