while (($key, $value) = each %hash) {
[download]

You got three things wrong:

1. use while, not foreach
2. the pair returned by each is $key,$value not $value,$key
3. you need parentheses around ($key,$value)

But of course, if he wants to use foreach, then for completeness it's fair to remind that he can do so, but in connection with keys, not each:

foreach my $key (keys %hash) {
    my $value=$hash{$key};
[download]

Update: hadn't noticed it already been covered by imp's reply. Hopefully repetita iuvant