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( $color, $light );
}

####
sub print_color {
    my ( $clr, $lite ) = @_;
    print " in sub values are '$clr' and '$lite'\n";
}