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

##</code><code>##

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