Select Code to Download

print $_ , ' => ', ~~($$..!$$), "\n"
    for qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);