Select Code to Download

for(my $i=0;$i<$#d/2;$i+=2) {
  my $t=$d[$i];
  $d[$i]=$d[$#d-$i];
  $d[$#d-$i]=$t
}

my $h = [[['t','o'],[['d','i'],'n']],[[['s','r'],['l','h']],['e',[['m'
+,['f','b']]
,[[['k',['w','p']],['g','u']],'a']]]]];
...
  @d = d($h,\@d);
} 
print"\n";