bigarray/bigarray.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl
use POSIX;

my @bigarray = ();

my $acount = 0;

for ( ; $acount < 500000; $acount++ ){
    push( @bigarray, $acount );
}

$acount = 0;

for ( ; $acount < 500000; $acount++ ){
    print( $bigarray[$acount]."\n" );
}

undef $acount;
undef @bigarray;

exit( 0 );