If i need for a variable to be 'shared' by other subroutines, then i just pass that variable along as an argument to those subroutines. If you are simply passing a reference to an array, then you are not passing the entire array.

I rewrote your code with some adjustments:

use strict;

&specific();

sub callme {
   my ($array,$i) = @_;
   $array->[$i] = "printme-";  # note the arrow operator
}

sub specific {
   my $array = [(0..5)];

   &callme($array,$_) for (0..$#$array);

   print join("\n", @$array), "\n";
}
[download]

The first thing to notice is that $array is a reference:

# this is not really correct:
my @array = [0,1,2,3,4,5];

# use this:
my $array = [(0,1,2,3,4,5)];

# or this:
my @array = (0,1,2,3,4,5);
[download]

Also, using subroutine prototypes is not recommended. Last note, why iterate through an array one element at a time and pass the index and the array off to another subroutine? Wouldn't simply passing the array reference to a sub that iterates it be better?

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)