for (@parts) {
    (my $c = $_->content_type) =~ s/;.+//;
    $ct{$c} = $_;
}