for $name ( sort keys %{$VAR1} ) { 
	for $calen ( sort keys %{ $VAR1{$name} } ) {
		for $value ( sort keys %{ $VAR1{$name}{$calen} } ) {
			if ( $VAR1{$name} ne ‘Sum’ ) {
				if ( ($VAR1{$name}{$calen} eq ‘days’) || ($VAR1{$name}{$calen} eq ‘weeks’) ){
					$day_week_total += $VAR1{$name}{$calen}{$value} if($VAR1{$name}{$calen}{$value});
				} elsif ( ($VAR1{$name}{$calen} eq ‘months’) ){
					$month_total += $VAR1{$name}{$calen}{$value} if($VAR1{$name}{$calen}{$value});
				}
			}  
	} 
} 

print “day_tot: $day_week_total — mon_tot: $month_total“;