%callback = (
             data       => 'gotdata',
             connect    => 'connected',
             # ...
             );
$method = $callback{$whichone};
$object->$method;