printit ($perl_structure);

sub printit{
  my $this = shift;
  if (ref $this eq ""){
     print " $this ";
     return;
  }
  for my $k (keys %$this){
     print "$k\t:";
     printit($_) for @{$this->{$k}};
     print "\n";
  }
  print "\n";
}