use strict;
  use List::Util qw(sum);
  my @d    = ( 1 .. 10_000 );
  my $s    = sum @d;
  my $mean = $s/@d;
  my $var  = (sum map { ($_-$mean)**2 } @d);
  my $std  = sqrt($var/@d);

# etc...