my @colors = (
   "blue",
   "green",
);

my $COLOR = 1;  # 0..1

sub geth {
   print "$colors[$COLOR]\n";
}

geth();