Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 14 lines (10 sloc) 181 Bytes
#!/usr/bin/perl -w
use strict;
my $INNER = 10000;
my $LOOPS = 1*1000*1000;
sleep 1;
my %aa;
for (my $i = 0; $i < $LOOPS; $i++) {
my $a = ' ' x $INNER;
$aa{$i % 1000} = $a;
}