while(<>) {
  chomp;
  my $func = uc($_);
  print (qq!"$func" not defined\n!), next unless exists $functions{$func};
  $functions{func}->();
}