Perl passage par référence qui ne marche pas

Bonjour,
j'ai une fonction qui prend une référence vers une table de hashage, lorsque j'essaie de rajouter un champ dans la table de hashage par cette fonction, ce champ existe seulement dans la fonction et n'est pas pris en compte en dehors.
voici une fonction proche de celle utilisée:

sub function
{
my $ref = $_[0];
$$ref {'champ'} = 3;
}

La fonction est appelée comme suit:

function ('antislash'%hash); #donc c'est bien la référence qui est prise.(le mot 'antislash correspond évidement au caractère qui ne s'affiche pas dans le forum)

et lorsque je fais un print apres l'appel de la fonction:
print $hash {'champ'}; #le champ n'est pas défini pourquoi??????

merci par avance pour vos réponses