Select Code to Download

...
    my( avg, $stddev ) = avgNstddev( $bigStruct->{something}{something
+else} ); ## hash expression yields an array ref.
...

...
    my $stats = Stats:Mod->new;
...
    my $stddev = $stats->stddev;
    $stats->empty;
...

for my $something ( keys %bigstruct ) {
    for my $somethingelse ( keys %{ $bigstruct->{ $something } } ) {
         ...
    }
}

my $stats = Stats::Module->new( $bigstruct->{ $something }{ $something
+else } );
my( $avg = ( $stats->average, $stats->stddev );
$stats->done;