Select Code to Download

sub do_something {
    my ($red, $yellow, $blue) = @_;
    ...
}

my ($red, $blue, $green) = qw(1 1 1);

...
do_something(\$red, \$blue, \$green);

print "$red, $blue, $green\n";

my %hash = (
    red => 1, 
...
do_something(\%hash);

print "$hash{red}, $hash{blue}, $hash{green}\n";