Select Code to Download

  my %partitions;
  while (
...
  $partitions{$pname} ||= [];
  push @{$partitions{$pname}}, $cols[3];
  }

  use List::Util qw(sum);

...
     
     # std dev is left as an exercise
  }