Ouch, That is ugly. Next time try something like

 my %field = %{ $key->{att} };

or maybe

 my $for = $key->{att}->{'for'};
 my $type = $key->{att}->{yfiles.type};
[download]

to reduce the amount of dereferencing. It is really easy to misread all that stuff.

- doug