foreach my $var (@array) {
  my @val = split /=/, $var, 2;
  $hash{$val[0]} = $val[1];
}