for my $index (0 .. scalar @$columns - 1) { 
  $columns->[$index] = 999 if length $columns->[$index] == 0;
}