my ($body) = $message->Body();

        foreach (@$body) { }

        # Or, if you prefer:

        my (@body) = @{$message->Body()};

        foreach (@body) { }

        # Or, furthermore:

        my ($body) = join ('', @{$message->Body()});