my %actions = (
     foo => \&do_foo, # some long operation
     bar => sub { # some short one line thing },
     default => sub { # do something by default },
);

my $request = $cgi->param('request');
if( exists($actions{ $request } )) {
     $actions{ $request }->();
}
else {
     $actions{ default }->();
}