Select Code to Download

%columns = (
  1 => 1,
...
  3 => 1,
  4 => 1
);

  $key_num = keys %columns # 5
  $key_num++; # 6
  $columns{6} = 1;