if (my $sub = main->can($key)) {
  $sub->();
}