Select Code to Download

 foreach (@kabluther) {
  #...
...
  # i.e., your $x was modified
  $_->change_in_x() for @listeners; # sounds like this is something li
+ke what you want to do.
 }

 foreach (@kabluther) {
   $x += $_->getSkookiness() if $_; # ignore undef arguments
   # or if ref $_; # only count ref's
   # or if ref $_ and $_->can('getSkookiness'); # only count objects t
+hat have this method
 }

  sub onTick {
    our $x;
...
    }
    return $x;
  }