print TEST "\n\nJust before if statement:\n";
print TEST "Password entered:\t\t$password\n";
print TEST "Username entered:\t\t$userName\n";
print TEST "Hash value for key $userName:\t$usernameInfo{$userName}\n";

if ( $password eq $usernameInfo{$userName} )