value:     22222111111111111   44444
source:     33333555599999999   77777

##</code><code>##

my @res;
my $i = 0;
while( $i < $#id ) {
    ++$i until defined $id[ $i ];
    my $id = $id[ $i ];
    my $start = $i;
    ++$i while defined( $id[ $i ] ) and $id[ $i ] == $id;
    my $end = $i - 1;
    push @res, [ int2dhm( $start ), int2dhm( $end ), $tally[ $start ] ];
}

##</code><code>##

my @res;
my $i = 0;
while( $i < $#tally ) {
    ++$i until defined $tally[ $i ];
    my $val = $tally[ $i ];
    my $start = $i;
    ++$i while defined( $tally[ $i ] ) and $tally[ $i ] == $val;
    my $end = $i - 1;
    push @res, [ int2dhm( $start ), int2dhm( $end ), $val ];
}