while (@lines) { $output .= ""; for ( 1 .. 3 ) { $output .= "" . (shift @lines) . ""; } $output .= ""; }