open FH, "<file.txt";
while (<FH>)
    {
    if (/((\S+)_\S+-\S+))
          {
          #for each unique $1; 
          %hash_$1 =();
          # populate hash with keys $2 and values $1
          $hash_$1($2)=$1;
          }
      }