use Data::Dumper;
while (<>)
{
  # Your code here
}
print Dumper(\%seen);