Actually this is an assignment. Thanks for the responses. What is the difference between chop and chomp? I'm not exactly sure what you mean by hashing the passwords. Isn't that what I am doing here? I am putting the user name and password of each user inside the hash. And actually changing the operator to eq from == worked. The problem now is that my subroutine that adds a user and pass to the hash doesn't seem to be working. Here is the code:

sub adduser
{
    print("Please enter the admin password: ");
    $epass = <STDIN>;
    chop($epass);
    if($epass eq $adminpass)
    {
        print("Please enter the user you would like to add: ");
        $usertoadd = <STDIN>;
        print("Please enter the password for the user: ");
        $passtoadd = <STDIN>;
        $userpass{$usertoadd} = $passtoadd;
        print("That password has been added to the system\n");
    }
    else
    {
        print("Wrong admin password\n");
    }
}

 print("Would you like to: \n");
    print("1. Add new user\n");
    print("2. Change admin password\n");
    print("3. Enter the system\n");

    $select = <STDIN>;

    if($select == 1)
    {
        &adduser;
    }
[download]

Also the $adminpass is set to 'root'.