http://www.perlmonks.org?node_id=862646


in reply to Re: prob w/ gatekeeper subroutine
in thread prob w/ gatekeeper subroutine

Thanks for the response. I will post the hash and the main part of the code that calls the subroutine. Sorry, should have done this in the first place.

$x = (); %userpass = ('john','ball','tim','super','matt','password','dan','nad3 +2'); &entersys; if($x == "pass") { print("Welcome to the system!\n"); } else { print("That user/password is incorrect\n"); }

I use them as global variables and a global hash so that the subroutines permanently change them.