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