my $parts = [ 'Part1', 'Part2','Part3' ];

my $newLoop = [ grep { $_->{SELECTED}++ 
                  if $_->{PARTNAME} eq $row->{title}, $_ }
                map +{ 'PARTNAME' => $_ }, @$parts ] ;

##</code><code>##

for (@$parts) {
  my $hash = { PARTNAME => $_ };

  $hash->{SELECTED}++
      if $_ eq $row->{title};

  push @$newLoop, $hash;
}