sub make_eval { 
    my ($path) = shift; 
    my $string = "\$hashref->"; 
    $string .= "{$_}" for @$path; 
    return $string; 
}