{
   'c' => sub { ... mach was fuer c ... },
   'q' => sub { &disconnect_db; print $clear; exit(); },
}->{$choice}->();