in reply to foreach problem

Using
use strict;

[download]

will help to avoid these kinds of errors.
Cheers!

In Section Seekers of Perl Wisdom