print join(', ', map { $lights{ $_ } ? $_ : () } 
                     ( 1..20_000)
      )."\n";