use vars qw( %test );

# ...

$test{localsub}->();