Tadpole secret operator ~~($$..!$$) can be used as a kind of counter

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