my %table = (
  Anmelden => \&Anmelden,
);

$table{ Anmelden }->( $sel, 'me@example.com', 'geheim', 0 );