local $"=','; my $s="@list";
my $s=join(',',@list);