sub rms {
  my $sq;

  $sq += $_ * $_ foreach @_;

  sqrt($sq/@_);
}