my $regex = join '|', map quotemeta, @ids;
while (<FILE>) {
    $counts{$1}++ if /($regex)/;
}