#!/usr/bin/perl
$a="snoopy";
$x="XXXXXX";
for (0..1000) {
  push(@s,"$a$_ " x 100);
}
exit 0;
for (0..1001) {
  @s[$_] = "$x$_ " x 100);
}
@s = ();

##</code><code>##

perl testmem
cp /dev/mem /tmp/mymem
grep -a snoopy /tmp/mymem | more
reset (you will need this)