#!/usr/bin/perl -w
use strict;

my $arraylength=1000;

open(FOUT,">", "/dev/null");
my $now=time();

for (my $j=0; $j<100_000; ++$j) {

  # create a 1000 array
  my @array;
  for (my $i=0; $i<$arraylength; ++$i) { push(@array, rand()); }

  passed_array(\@array);
  sub passed_array {  print FOUT $_[0]->[rand($arraylength)]; }

}
print "Time: ".(time()-$now)." seconds\n";
close(FOUT);