Listing 4. The std_dev_pm Function

sub std_dev_pm {
  my $stat = new Statistics::Descriptive::Sparse();
  $stat->add_data(@_); 
  return $stat->standard_deviation();
}