sub event { my $c = shift;

 foreach my ??? (???) {
  print ??? . "\n";
  
}