#! perl -slw
use strict;

sub processBigArray {
    our @alias;
    local *alias = shift;
    $_ += 1 for @alias;
    return;
}

my @a = 1 .. 1e6;

processBigArray( \@a );

print for @a[ 0 .. 9 ];

__END__
C:\test>junk38
2
3
4
5
6
7
8
9
10
11