- or download this
my @field_names = qw/ ParentNodeId NodeId level canode label theme tem
+plate /; # and so on for the rest
- or download this
my %attributes;
@attributes{ @field_names } = split /,/, $line;
- or download this
$esec->set_att( %attributes );