&{ $var }(@args);

##</code><code>##

my %subs = ( foo => sub { print 42 },
             bar => sub { print "abc" } );

$subs{foo}->(@args);