/ /&&($h{$`}=$')for<>; $_++for@c[values%h]; print$_+0,$/for@c[0..7];