hash dans un program perl

Bsr,
je voudrais savoir comen fair un hash dans un program perl?
Ainsi que sn affichage.

Un exemple:

Code:

---

1 2 3 4 5 6 7 8 9

my %un_hash; # déclaration   %un_hash = (jan=>'01', fev=>'02', mar=>'03'}; # affectation des 3 premiers mois $un_hash{avr} = '04';   print $un_hash{fev}, "\n"; # imprime "02" foreach my $key (keys %hash) { print $key, $un_hash{$key), "\n"; # imprime les paires clé/valeur dans le désordre }

---