Eu tenho uma função que aceita uma variável e uma matriz associativa, mas não consigo fazê-las passar corretamente. Eu acho que isso tem algo a ver com declarações de função, no entanto, não consigo descobrir como elas funcionam no Perl. Existe uma boa referência para isso e como realizo o que preciso?

Devo acrescentar que precisa ser passado por referênci

sub PrintAA
{
    my $test = shift;
    my %aa   = shift;
    print $test . "\n";
    foreach (keys %aa)
    {
        print $_ . " : " . $aa{$_} . "\n";
        $aa{$_} = $aa{$_} . "+";
    }
}