Nothing to do with your problem with Foreach Loops but I'm wondering why you are concatenating two strings in your print statement when one would do. This

    print "foreach takes :"."$_\n";
[download]

could be written

    print "foreach takes :$_\n";
[download]

Cheers,

JohnGG