foreach $lyne (@lines){ printf $lyne\n; }