my @field_names = qw/ ParentNodeId NodeId level canode label theme template /; # and so on for the rest

##</code><code>##

my %attributes;
@attributes{ @field_names } = split /,/, $line;

##</code><code>##

$esec->set_att( %attributes );