sub entersys
{
    print("Please enter your username: ");
    chop($euser = <STDIN>);
    print("Please enter your password: ");
    chop($epass = <STDIN>);
    if($userpass{$euser} eq $epass)
    {
        $x = 'pass';
    }
    else
    {
        $x = 'fail';
    }
}