my $modulator = 0;
foreach (@fs_list) {

        print qq{<div class="row-fluid hideInIE8 data">\n}
            unless $modulator++ % 6;

        my ($up) = $_->{usepercent} =~ m/(\d+)\%/;
        print qq(\t\t<div class="span2" onTablet="span4" onDesktop="span2">\n);
        print qq(<div class="circleStatsItemBox NSBlue">);
        print qq(<div class="header">$_->{fsname}</div>);
        print qq(<span class="percent">percent</span>);
        print qq(<div class="circleStat">);
        print qq(<input type="text" value="$up"  class="widget"/>);
        print qq(</div>);

# ...and so on...
}