sub print_A {
    print "\nA\n";
}
sub print_B {
    print "\nB\n";
}

$calls = { A=> \&print_A, B=> \&print_B };;

$calls->{'A'}();;

A