my @regexes = map qr{GET (.*$_.*) HTTP/1.1" 200 [0-9]}, @mask;

##</code><code>##

my (%count, @order);

while (<F>) {
  chomp;
  for my $rx (@regexes) {
    if (/$rx/) {
      my $bn = basename($1);
      $count{$bn}++ or push @order, $bn;
    }
  }
}

##</code><code>##

my $alts = join '|', map quotemeta, @masks;
my $rx = qr{GET (.*(?:$alts).*) HTTP/1.1" 200 [0-9]};
my (%count, @order);

while (<F>) {
  chomp;
  if (/$rx/) {
    my $bn = basename($1);
    $count{$bn}++ or push @order, $bn;
  }
}