The "reason(s)" you're getting no replies may include:

1. The tread has grown elderly (and deeper than the max depth to which some Monks read).
2. The latest code you've posted shows little evidence that you've worked to understand and implement prior replies.
3. The form of your question amounts to a 'gimme', AKA, a 'do it for me' which is not an approach approved here.

Still, in the spirit of 'help, but don't do the (whole) job':

• Your use of while is not doing what you want. See perldoc -f while (which refers you to a specific section of perlsyn, a document available on your own computer) and compare to the docs re for.
  

  open (my $FH, '<', "bindo1061990A.txt") || die "Cannot open bindo10619
  +90A,txt: $!";
  
  my @lines = <$FH>;
  
  for my $line (@lines) {
      say $line;
  }
  [download]

• Your foreach (@DUMP) { at Ln 10 should NOT be inside the loops beginning at Lns 6 and 7 as that will produce repetitive output for each (new) match.

I hope this helps... and also clarfies that the saying "Heaven helps those who help themselves" can be paraphrased to apply here.