Select Code to Download

my $max = 50000;
my @l = ('a'..'z');
my @keys = map { join '', map $l[rand @l], 0..71 } 0..$max;

$ time /usr/local/src/perl-5.10.0-perlmalloc/perl -I/usr/local/src/per
+l-5.10.0-perlmalloc/lib ~/trash/slow_malloc2.pl
3.027u 0.435s 0:03.68 93.7%     1448+324155k 0+0io 0pf+0w

$ time /usr/local/src/perl-5.10.0-sysmalloc/perl -I/usr/local/src/perl
+-5.10.0-sysmalloc/lib ~/trash/slow_malloc2.pl
405.090u 189.574s 13:01.52 76.0%        1466+495449k 0+0io 0pf+0w