my $menu_item;
while (lc $menu_item ne 'q') { # allow 'q' to quit
  print "Enter your choice here: ";
  $menu_item = <>;
  chomp($menu_item);
  (defined $action{$menu_item}) ? $action{$menu_item}->() : print "Wrong input. \n";
}