my @addrs;
for my $x ( @emaillist ) {
  push @addrs, "$k\@myorg.mydomain";
}
my $distlist = join( " ", @addrs );