Help for this page
my $parts = [ 'Part1', 'Part2','Part3' ]; my $newLoop; ... push @$newLoop, $hash; }
my $parts = [ 'Part1', 'Part2','Part3' ]; my $newLoop = [ map {{ PARTNAME => $_, ... ? (SELECTED => 1) : () }} @$parts ];