my %query_to_sub = ( officeID => \&edit_office_product,
                     fnord    => \&vreemflitzel );
$query_to_sub{ $query->param( 'spoo' ) }->()

##</code><code>##

my $method = $foo->can( $query->param( 'behavior' ) );
if( defined( $method ) ) {
  $foo->$method()
} else {
  do_error( "Unknown method " . $query->param( 'behavior' ) );
}