... div ...
for my $i (0..$#fs_list) {
   ... $fs_list[$i] ...

   if ($i % 6 == 0) {
      ... div ...
   }
}