my %dummies;

foreach (1..100) {
  srand;
  my $extra = int(rand(256));
  warn "ralph" . $extra . "\n";

  $dummies{$_} = 
    dacts (     "ralph" . $extra,
                "myvoiceismypassword",
                "127.0.0.1",
                8888    );
}
for (;;) { }