push @{$results{$r->{stamp}}}, $r->state; 

##</code><code>##

($results{$r->{stamp}}->{$r->state})++;