my $newLoop;
push @{$newLoop},{PARTNAME=>$_,/$row->{title}/?(SELECTED=>1):()}
for qw(Part1 Part2 Part3);