my ($rand,%seen,@files);
my $number=shift || 15;
{
  $rand = substr(rand,-7,4);
  unless ($seen{$rand}++) { ## Files must be unique!
    push @files, "elmo$rand.txt";
    --$number or last;
  }
  redo;
}