my $defaults = {};
%defaults = map {(($_ =~ /([^\=]+)\=(.+)/)?($1 => $2):($_ => ''))} @ARGV;
print join(",", keys %defaults);