Select Code to Download

my ($rand,%seen,@files);
my $number=shift || 15;
...
  }
  redo;
}

my @files = <elmo*.txt>;

...
  map  {[$_, $_ >= $high ? $_-10000 : $_]} @files) {
  print "Parsing elmo$_.txt\n";
}