Re^2: Hidden features of Perl

[ccn]

in reply to Re: Hidden features of Perl
in thread Hidden features of Perl

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