Select Code to Download

my ($member,$total) = 'johndoe';
$total += $main{$_}{$member} for keys %main;

my %total;
for my $month (keys %main) {
    $total{$_} += $main{$month}{$_} for keys %{$main{$month}};
}