Can someone convert this script from AWK to Perl?

[John Berwick]

I have this awk command that I would like to use in a perl script and wondered if someone could convert this for me.

awk -F= '{arr[$1]+=$2} END {for (i in arr) {print i, arr}}'

Thanks