#!/usr/bin/perl -w
use strict;
my @sum;
my @sumsq;
my $n = 0;
while( <DATA> ){
  my @fields = split / /;
  foreach my $i ( 0..$#fields ){
    $sum[$i] += $fields[$i];
    $sumsq[$i] += $fields[$i]**2;
  }
  $n++;
}
$_ /= $n for @sum, @sumsq;
my @stddev = map { sqrt( $sumsq[$_] - $sum[$_]**2 ) } 0 .. $#sum;

print join(" ", @stddev) . "\n";

#foreach my $i ( 0 .. $#sum ){
#  printf "%5s %10s %10s\n", $i, $sum[$i], $stddev[$i];
#}

__DATA__
1.8 2.5 3.8 1.9 -3.5 -3.5 3.2 -3.9 4.2 4.5 2.8
-1.3 -0.9 -0.7 -0.4 -0.8 -3.5 -3.5 -1.6 -4.5