if ( $i % 2 ) {
      @arr[ $i-1, 0 ] = @arr[ 0, $i-1 ];
    }
    else {
      @arr[ $i-1, $d-1 ] = @arr[ $d-1, $i-1 ];
    }