my %CODE = (
   one      => \&one,
   two      => \&two,
   three    => \&three,
   _default => \&not_found,
);

my $input = whatever;

($CODE{$input} || $CODE{_default})->(@arguments);