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

##</code><code>##

my $distlist = join( " ", map { "$_\@myorg.mydomain" } split( /,/, $ARGV[1] ) );