foreach my $part ( @{ $result->parts } ){