warn " Compare <<$usrfile{password}>> to <<$password>>";
 if ( $usrfile{password} eq $password ) {
    ... blah blah blah...
 }