foreach (@data) {

##</code><code>##

foreach $l (@data) {