while(@ARGV)
{
  my ($k,$v)=split(/\s*=\s*/,shift(@ARGV),2);
  $changes{$k}=$v;
}