http://www.perlmonks.org?node_id=62783

@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";


Jouke Visser, Perl 'Adept'