package Foo;
  our %callbacks = (
      pig => sub { ... },
      cat => sub { ... },
      dog => sub { ... }
  );
  
  while (...) {
      # do stuff
      $choice = ...;
      $callbacks{$choice}->(@args);
  }