...
my @parts;
foreach (@files) {
    push @parts, Email::MIME->create(   # attachments
                     ...
                 );
}
$email = Email::MIME->create(           # actual email
    ...
    parts      => [ @parts ],
    ...
);
...