Select Code to Download

my %actions = (
 "n" => \&skip,
...
# ... rest ommited ...
 "\n" => \&goto,
);

sub interpretplay {
  if (exists $actions{$char}) {
...
    &invalid;
  };
};