Why are your symbols called calar and rray?

I think you thought $[ is some array index pointer, but it's not. $[ sets the base index, and you should never change it. Its documentation (from perlvar) clearly states what it does:

$[
The index of the first element in an array, and of the first character in a substring. Default is 0, but you could theoretically set it to 1 to make Perl behave more like awk (or Fortran) when subscripting and when evaluating the index() and substr() functions. (Mnemonic: [ begins subscripts.) As of release 5 of Perl, assignment to $[ is treated as a compiler directive, and cannot influence the behavior of any other file. Its use is highly discouraged.

You probably meant something like:

@array = qw(foo bar spam eggs);
for ($index = 0; $index < @array; $index++) {
    print $array[$index];
}
[download]

But in that case, I think you should really use the simpler and more efficient for VAR (LIST) BLOCK. And don't forget to use strict.

use strict;
my @array = qw(foo bar spam eggs);
for my $element (@array) {
    print $element;
}
[download]

(Note that the last for loop could also just have been print for @array, or if $, isn't set even print @array.)

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.