my %dispatch = (
  1 => 'doOne',
  2 => 'doTwo',
  3 => 'doThree',
);
my $action = 1;
my $class = "XYZDASDF";
my $object = $class->new();
if (exists $dispatch{$action}) {
  $object->$dispatch{$action};
}