@emaillist=split(/,/,$ARGV[1]);
my $distlist;
foreach $k (@emaillist){
  $distlist="$distlist $k\@myorg.mydomain";
}