while(1){
   foreach my $p (@{$dbh->selectall_arrayref(qq|SELECT id, do, ts FROM do|, {Slice=>{} })}){
      # Do what the JSON is telling me 
   }

   sleep 1;
}