sub svhash {      
...                                
    my ($dbhandx, $fail) = ("", ""); ##<<<<<<<<<<<<<
...
    return ($dbhandx, $fail);     ##<<<<<<<<<<<<<
}