#!/usr/bin/perl
use strict;
use warnings;

sub makeXML {
  no strict 'refs';
  my $v = shift;
  "<$v>${$v}</$v>";
}

our $bla = 42;
print makeXML('bla'), "\n";