my %xml_values = ();
$xml_values{year} = '1999';

sub writeBasicTag {
    my $tag = $_[0];
    $writer->startTag($tag);
    $writer->characters($xml_values{$tag}); 
    $writer->endTag($tag);
}