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