RECORD:
for my $record (@merged_records)
{
    my $index;
    for $index (0 .. $#cache)
    {
        if ($cache[$index] eq $record)
        {
            $cache[$index] = 0;
            next RECORD;
        }
    }

    die "Cannot find record to remove in cache!\n";
}