sub new{
        my ($class) = @_;

        my $self = $class->SUPER::new('1.0','UTF8');

        my $root;
        my @listeners;

        # fails!
        $self->{'Listeners'} = @listeners;
        
        bless($self, $class);
}