The use of indices can easily be avoided also using the mapcar module (kindly provided by tye) or with equivalent code.

$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g