sub mkhref (%) {
    if ( @_%2 ) {
        carp "Odd number of elements in mkhref" if $^W;
        return { @_, undef };
    }
    else {
        return {@_};
    }
}