my %hash = map { chomp(my ($a, $b) = split(/ = /, $_)); $a => $b } @array;