use strict;
use warnings;
use YAML;

my $stuff = <<YAML;
---
ABC:
 DEF:
  - GHI
YAML

my $perl_structure = Load $stuff;

printit ($perl_structure);

sub printit{
  my $this = shift;
  if (ref $this eq "" ){
     print $this;
     return;
  }
  if (ref $this eq "ARRAY"){
     print "<value>";
       printit ($_) for @$this;
     print "</value>\n";
     return;
  }
  #print "Got " . ref ($this) . "\n";
  for my $k (keys %$this){
     print "<$k>\n";
     printit($_) for $this->{$k};
     print "</$k>\n";
  }
}

##</code><code>##

<ABC>
<DEF>
<value>GHI</value>
</DEF>
</ABC>