diff options
Diffstat (limited to 'bigarray/bigarray.pl')
-rwxr-xr-x | bigarray/bigarray.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/bigarray/bigarray.pl b/bigarray/bigarray.pl new file mode 100755 index 0000000..6e662f1 --- /dev/null +++ b/bigarray/bigarray.pl @@ -0,0 +1,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 ); |