foreach (@array) { my ($key, $val) = split(/=/, $_); $vars{$key} = $val; }