my %colors = (
   "1" => "blue",
   "2" => "green",
);

my $COLOR = 2;  # 1..2

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

geth();