my $delim = shift @ARGV;
$" = $delim;
...
print "@list";