# input file
open(USERS, $inFile) or die ("Cannot Open $inFile\n");
while($line = <USERS>){
  chomp($line);
  #print $line; #debug print of var
  push(@userNames, $line);
}
close(USERS);

##</code><code>##

open(OUT, ">> $outFile") or die("Cannot Open $outFile\n"); #append to this file
  foreach my $USER(@userNames){
    print OUT "$USER\n";
  }
close(OUT);