while ( (my $key, my $value) = each %config ) { print "!$key! => ($value)\n"; } #### print map{substr'hark, suPerJacent other l',$_,1}(11,7,6,16,5,1,15,18..23,8..10,24,17,0,12,13,3,14,2,4);