my $dispatch = {
  option1 => sub { print "opt 1\n"},
  option2 => sub { print "opt 2\n"},
  option3 => sub { print "opt 3\n"},
  default => sub { print "default\n" },
};

$dispatch->{($dispatch->{$option})?$option:'default'}->(@args);
[download]