use strict;

my @colors = qw ( red green blue );

my $color;  
my $light = 'on';

foreach $color (@colors) {
	print "\$color is '$color' and \$light is '$light' in loop, ";
	print_color();
}

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