Remplir un hash à partir d'un fichier

bonsoir tous le monde
j'ai un probeleme avec mon script perl , j'ai en faite un jeu de donnée de 12000 ligne et en tous 257 Pathways metabolic
ce que je veux est de créer un hash qui contient les identiants de la voies metaboliques comme clés et tous les lignes qui viennent deriere comme sa valeur associe et ca pour la voie d'aprés mais j'arrive pas
mes données ressemble à ca

use strict;
use warnings;
my $metabolit;
print "je vous aime \n";
open($metabolit ,'<','pathways');
my @path;
my $comte_xeno;

while (my $line =<$metabolit>){chomp $line;push(@path,$line);}
####### PARTIE IV question 1 #######
my $compte_path=0;
my $compte_xeno=0;
  foreach (@path){
     if ($_=~m/(\[PATH:ko\d{5}\])/){$compte_path++;print "$1\n";}
     
         }
      print "$compte_path\n";
my %table;
my $path_table;

	  
	foreach (@path){
     if ($_=~m/xenobiotics/i){$compte_xeno++;print"$_:match\n";}

}
print "les voies metaboliques qui ont un lien 
         avec les Xenobiotiques sont au nombre de : $compte_xeno\n";
close $metabolit;