Select Code to Download

{
    use Data::Diver qw/ Dive /;
    my $metric = Dive( $mainHash , $hashType , $regionID, 'MetricType'
+ );
    my $cirtem = Dive( $metric, $$resultHash{Location} , $yearMonthDat
+eList[$start] );
    $cirtem +=  $$resultHash{Value};
}

{
   $mash->mertem( $mash->mertem + $value );
}