Re^2: Hidden features of Perl

[ccn]

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);