Select Code to Download

#! /usr/bin/perl

...
print "\n", "Colors:\n";
print "$_ => @{[enumerate color => $_]}\n" for
        qw( red yellow red red red green );