my %stuff = ( year => '1999', foo => 'bar', baz => 'quux', );


##</code><code>##

sub writeBasicTag {
    for (@_) {
        $writer->startTag($_);
        $writer->characters($stuff{$_});
        $writer->endTag($_);
    }
    1;
}