or download this
Type of arg 1 to keys must be hash or array (not private variable) at
+./test.pl line 25, near "$value ]"
Type of arg 1 to keys must be hash or array (not private variable) at
+./test.pl line 32, near "$found) "
Type of arg 1 to values must be hash or array (not private variable) a
+t ./test.pl line 34, near "$found)"