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

##</code><code>##

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