...
html(\%hash_to_pass,$root_user,$root_path);
...
sub html{
 my($hash, $user, $path) = @_; 
....
}