$\*=$_/++$c[glob<>]for++$\..<>;print