Select Code to Download

#!/usr/bin/perl
use strict;
...
while (my ($key, $value) = each %myhash) {
    print "$key: $value\n";
}

green: 311
blue: 45
red: 27
yellow: 114