Select Code to Download

use strict;

...
sub print_color {
    print " in sub values are '$color' and '$light'\n";
}

$color is 'red' and $light is 'on' in loop,  in sub values are '' and 
+'on'
$color is 'green' and $light is 'on' in loop,  in sub values are '' an
+d 'on'
$color is 'blue' and $light is 'on' in loop,  in sub values are '' and
+ 'on'