sub event { my $c = shift;

 foreach my $key (keys %$c) {
  print $key . "\n";
 }
  
}