# Copyright (C) 2001-2007, Parrot Foundation. =head1 NAME examples/benchmarks/stress.pl - GC stress-testing =head1 SYNOPSIS % time perl examples/benchmarks/stress.pl =head1 DESCRIPTION Creates 50 arrays with 10000 elements each. =cut use strict; use warnings; my @arr; foreach ( 1 .. 10 ) { $arr[$_] = buildarray(); } my @arr1; foreach ( 1 .. 20 ) { $arr1[$_] = buildarray(); } my @arr2; foreach ( 1 .. 20 ) { $arr2[$_] = buildarray(); } sub buildarray { my @foo; foreach ( 1 .. 10000 ) { $foo[$_] = $_; } return \@foo; } =head1 SEE ALSO F<examples/benchmarks/stress.pasm>, F<examples/benchmarks/stress1.pasm>, F<examples/benchmarks/stress1.pl>, F<examples/benchmarks/stress2.pasm>, F<examples/benchmarks/stress2.pl>, F<examples/benchmarks/stress3.pasm>. =cut # Local Variables: # mode: cperl # cperl-indent-level: 4 # fill-column: 100 # End: # vim: expandtab shiftwidth=4: