Update: Guess I'm a little late to the party...two replies already...heh ; )

Instead of putting the values into seperate variables like that, use a hash. Then you could do:

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