@{$_}[4,5] = @{$_}[5,4]  for $blocks[$blockcount];