foreach $l (@data) {