my %hash;
foreach (@ARGV)
{
    $_ =~ m/^(.*?)=(.*)$/;
    $hash{$1} = $2;
}

##</code><code>##

my %hash = map{m/^(.*?)=(.*)$/;$1=>$2} @ARGV;