what is this doing, and what are the implications?

#!/usr/bin/perl -w

use strict;

@main:: = ("foo","bar","blat");
for $main:: (0 .. $#main::) {
  print $main::[$main::];
}

-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve             japhy@pobox.com
http://www.pobox.com/~japhy/                  http://pinyaj.stu.rpi.edu/
PerlMonth - An Online Perl Magazine            http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc.    http://www.perlarchive.com/

• what is this doing, and what are the implications? by Jeff Pinyan
• Re: what is this doing, and what are the implications? by Ronald J Kimball