sub contentToString {
    my $list = shift; 
    my $result = '';

    if (ref($list) eq 'ARRAY' and @$list) {
        my $i;
        while ($i < $#$list) {
            my $list_entry = $list[$i];
            if (ref($list_entry)) {
                if (ref($list_entry) eq 'ARRAY') {
                    splice(@list, $i, 0, @$list_entry);
                }
                elsif (ref($list_entry) eq 'HASH') {
                    $output_string .= tagToString($list_entry);
                }
            }
            else {
                $result .= $list_entry;
            }
            $i++;
        }
    }
    return $result . "\n";
}