Help for this page
push @{$results{$r->{stamp}}}, $r->state;
($results{$r->{stamp}}->{$r->state})++;