#!/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 = ();