Select Code to Download

my %lookup = ( 
    foo=>\&fooaction, 
...
else {
    #do the default or exception handling here.
}

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