What this code is doing is building a delayed action dispatch table. Whenever you need to look a variable up in an array, you should consider using a hash. That is exactly their forte.

my %lookup = ( 
    foo=>\&fooaction, 
    bar=>\&baraction, 
    qux=>\&quxaction 
);
if (exists $lookup{$var}) {
    $lookup{$var}->();
}
else {
    #do the default or exception handling here.
}
[download]

It cleaner and clearer to read, uses loads less variables, is much easier to maintain and extend and more efficient to boot.

If brevity is compatible with your mindset, then the if/else can become

&{ $lookup{$var} || $default_subref }->( parms );
[download]