(/^..$/...$_)||print for@Array # 30 chars, with named array