Select Code to Download

Header Line One
***-***  0     0         ***-MBO  0    0
...
***-***  0     0         ***-MBO  0    0
2TO-T/V  0     0         2TO-T/O  0    0
POC-CNU  1285  0         POC-A/M  0    15567

my $data={};
my $file;
...
    warn "Badly formatted line found, ignoring: $_\n";
  }
}

$data->{Header Line One}->
        {***-***} -> "***-*** 0 0 ..etc"
...
        ...
      ->{Header Line Two}->
        ....