for my $discount (@discounts) {
  if ($discount == 1) {
    my $key_num = scalar keys %columns;
    $key_num++;
    $columns{$key_num} = 1;
  }
}