while (<IN>) {
my %entity;     # <---
...