my $attr = shift;
  my @found = { grep /^on[A-Z]/ } keys %$attr;