Illegal division by zero at ... line 9.

##</code><code>##

my $array = 1;
foreach (%$array) { print }

#error:
Can't use string ("1") as a HASH ref while "strict refs" in use at ... line 11.