die unless defined $hash;

    die "path $path does not have a hash" unless defined $hash;

    print scalar @list, "\n";