I guess I didn't need to add indexes to perl