Select Code to Download

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

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

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

  push @$newLoop, $hash;
}