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