and typos, oh boy

while( my( $att, $attref ) = each %{ $event->{attribute} }){
    print "$att required " if $attref->{required};
}
[download]