Select Code to Download

use strict;
my $MAX = 20001;
...
  printf "Bulb %5d is ON\n", $n if ( $bulbs[$n] ); 
}