my @array; 
&processArray(\@array);

my ($arrayRef) = @_; 
my @array = @{$arrayRef}; 
foreach my $index (0..$#array) { 
   $array[$index] = processed($array[$index]); 
}

my ($arrayRef) = @_; 
foreach my $index (0..$#$arrayRef) { 
   $arrayRef->[$index] = processed($arrayRef->[$index]); 
}

my ($arrayRef) = @_;

use strict; 
use warnings; 
use Data::Dumper; 
 
my @array = 0 .. 2; 
print Dumper(\@array); 
processArray(@array); 
print 'processed ', Dumper(\@array); 
 
sub processArray { 
    for my $index (0..$#_) {  
       $_[$index] = processed($_[$index]);  
    } 
} 
 
sub processed { return $_[0] + 1 } 
 
__END__ 
 
$VAR1 = [ 
          0, 
          1, 
          2 
        ]; 
processed $VAR1 = [ 
          1, 
          2, 
          3 
        ];

map { processArray($_) } @array;