{ $OUT = ''; foreach my $domain (split /[,;]/, ($altqmail{'Domains'} || '')){ $OUT .= "$domain:127.0.0.1:" . (${'altqmail-smtpd'}{'TCPPort'} || '27') . "\n"; } }