Help for this page

Select Code to Download

Select or download this

my %longNames = map { ($_=>1) } @longNames;
for my $l (2..2990) {
...
        print"\n***********Matched*************\n";
    }
}