open $USER1, '<', $userfile1 or die "Couldn't open file: $userfile1 - $!";
...
while(<$USER1>) { ...