Tsk, tsk Tsk. Jouke, Jouke, you didn't use the -w switch!

@q=([6,13,0],[1,5,1,10,11,0,7,14,6,15],[0,7,8,0],[12,8,6],[9,
1],[12,13,3,6,0,1,2],[12,13,3,6,0,4],[8,6,2]);@w=(0,1,2,3,4,5
,6,7,0,1,2,6,3,4,5);foreach$a(@q){foreach(@$a){@_=split(//,
'tedusvnhabrycoig');$x.=$_[$_]}push@y,$x;$x=''}print '"';foreach
(@w){print"$y[$_] "}print"\"\n";
[download]