foreach (@array) { next unless /var(\d+)=(.*)/; $values[$1] = $2; }