for my $recipient($emailliste,$smsliste){