How to conditionally execute a subroutine defined as hash value

[Anonymous Monk]

Hello,
is there a way to conditionally execute a subroutine defined as hash value?
In the example below I get both subroutines executed, while I'd like to only execute one of them based on the value of $test.
Thanks

use strict;

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

my $test = 'A';
$calls->{$test};

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