my $c;
while( sleep 1 ) {
    print "timer event";
    $c = scalar keys %results;
    last if $c;
}

pp $c;