my $newLoop = [ 
	map {$_ eq $row->{title} ? {'PARTNAME' => $_, 'SELECTED' => 1} : {'PARTNAME' => $_} } @$parts 
] ;
#or even
my $newLoop = [ 
	map {
		if($_ eq $row->{title}) {
			{'PARTNAME' => $_, 'SELECTED' => 1} 
		} else { 
			{'PARTNAME' => $_} 
		} 
	} @$parts 
] ;