foo_1-a
foo_2-b
foo_3-b
foo_4-b
bar_1-a
bar_2-a
bar_3-b
bar_4-a
bar_5-b
##</code><code>##

foo 4 foo_1-a foo_2-b foo_3-b foo_4-b
bar 5 bar_1-a bar_2-a bar_3-b bar_4-a bar_5_b
##</code><code>##

%hash_bar =()
bar_1-a => bar
bar_2-a => bar
bar_3-b => bar
bar_4-a => bar
bar_5-b => bar
%hash_foo =()
foo_1-a => foo
foo_2-b => foo
foo_3-b => foo
foo_4-b => foo
##</code><code>##

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;
          }
      }