Quote

@parts = $entity->parts();

Nicht die Anzahl sondern das komplette Array der Teile wird nach @parts kopiert (da Zuweisung im Listenkontext). Die Anzahl wurde im if benutzt (dort skalarer Kontext). MIME::Entity

Quote

push @parts, $entity unless @parts;

Mache das betrachtete MIME::Entity-Object ($entity) zum einzigen Element in @parts, außer @parts enthält schon was.