Select Code to Download

 value:     22222111111111111   44444
source:     33333555599999999   77777

my @res;
my $i = 0;
...
    my $end = $i - 1;
    push @res, [ int2dhm( $start ), int2dhm( $end ), $tally[ $start ] 
+];
}

my @res;
my $i = 0;
...
    my $end = $i - 1;
    push @res, [ int2dhm( $start ), int2dhm( $end ), $val ];
}