Select Code to Download

foreach my $color (@colors) {
   ...
}

my $color;

use strict;

...
$color is 'green' in loop,  in sub value is 'green'
$color is 'blue' in loop,  in sub value is 'blue'