$red = 1;
$blue = 2;
$green = 3;

foreach $color (qw(red blue green)) {
    print "$color: $$color\n";
}