my $newLoop = [
    map {
        my $hash = {PARTNAME => $_};
        $hash->{SELECTED} = 1 if $_ eq $row->{title};
        $hash;
    } @$parts
];