my $newLoop = [];
foreach my $part (@$parts) {
    my %hash;

    $hash{PARTNAME} = $part;
    $hash{SELECTED} = 1 if ($part eq $row->{title});

    push(@$newLoop, \%hash);
}