Select Code to Download

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

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