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