my %sub_refs = (
	foo => \&do_this,
	bar => \&do_that,
);

my $request = $ENV{QUERY_STRING};

if (defined(my $action = $sub_refs{$request})) {
	$action->();
} else {
	default();
}