Select Code to Download

#!/usr/bin/perl

...

my $simple = XML::Simple::Ordered->new();
my $data = $simple->XMLin($file);

sub collapse {
  my $self = shift;
...
  
  my $attr  = shift;
  $attr = $self->new_hashref() unless %$attr;    # <-- add this line