if ( my $sub = atm->can($varN) ) {
  $sub->( object_vars($varN) );
} else {
  # no matching sub
}