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

##</code><code>##

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