my $foo = get_user_input();

my %actions = (
  A => sub {a;},
  B => sub {b;},
  C => sub {c; b;},
  D => sub {d;},
);

if (not exists $actions{$foo}) {
    $foo = 'A';
};
$actions{$foo}->();