print qq{<li class="row row$row"><ul>\n};
for my $modefull (@moderows) {
my $mode = $modefull;
my @showcase = $mode =~ s/(\d+)(?:-(\d+))?$//
print qq{<li class="row row$row"><ul>\n};
for my $modefull (@moderows) {
my $mode = $modefull;
my @showcase = $mode =~ s/(\d+)(?:-(\d+))?$//