or download this
open($Definedlist, '<', $name) or die "Open failed on $name: $!";
+ # opens the file and places the contents into Namelist
open($BigNamelist, '<', $newName) or die "Open failed on $name: $!";
+ # opens the second file and places the contents into Newlist