my $in = $cgi->param('in');
my @actions = qw(this that foo bar zzz);

{
    no strict 'refs';
    foreach(@actions) {
        $_->() if($_ eq $in);
    }
}
[download]

But I like chromatic's suggestion better.

'kaboo