[PERL] remplissage de table de hachage

Bonjour,

Je cherche comment faire pour remplir une table de hachahe d'elements extraints à partir d'un texte
voilà mon petit bout de code qui cré une table de hachage en l'initialisant, et qui extrait les element du texte à stocker dans la table de hachage
Merci pour votre aide

#!/usr/bin/perl 
use strict;
use warnings;
my %h = ();
my $InFile = "/home/cyrine/restri";
open my $fh_infile, '<', $InFile or die "Can't open $InFile\n";
 
while ( my $Ligne = <$fh_infile> ) {
  if ( $Ligne =~ /^(.*?)\->/ ) {
    # traiter $substring
    print $1; 
    # inserer le contenu de $1 dans la table de hachage
 
  }     
}
close $fh_infile;