my $count=0; foraech(@fs_list) { $count++; if($count == 6) { print qq(
); $count=0; } ... ... ... }