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);
Results (331 votes),