Nothing... depending on the version of Perl you are running (I am assuming 5.8.x).

I will say, however, foreach is getting dropped in Perl6 so it may be worth while to move to for rather than foreach