for my $recipient($emailliste,$smsliste){
    my $body = $recipient eq $smsliste ? "" : $message_body;
        my $message = MIME::Lite->new(
               From => 'skript.pl',
               To => $recipient,
               Subject => "Meine Subject-Zeile",
               Data => $body,
       );
    # ...
}