Select Code to Download

use warnings;
use strict;
...
baz
foo
quz

quzz: 0
foo: 3
baz: 1
ba: 1

my ($regex) = map {qr/($_)/} join '|', map {quotemeta} @pat_array;
my %match_count;
...
for my $k (sort keys %match_count) {
    print $k,": ",$match_count{$k},"\n";
}

ba: 1
baz: 1
foo: 3