my $method =
    $phase_of_moon eq 'waxing' ? "discombobulate" : "vreemflitzel";
  $obj->$method( $price_of_tea_in_china );