# Remove the 4th column.
splice(@$_, 3, 1)
   foreach @$rows;