$S ? "$_\t$seen{$_}{count}\t$seen{$_}{spoon}\n" : print "$_\t$seen{$_}{count}\n";