#!/usr/bin/perl -w
use strict;
my $total_sites = 7;
my $row_count = 0;
my $rows = 2;  
print "<table border=\"1\" width=\"100%\" cellpadding=\"3\" cellspacing=\"3\">\n\n";
for(my $i = 1; $total_sites >= $i; ++$i) {
    if ($row_count == 0) {
        $row_count += 2;
        print "  <tr valign=\"top\">\n    <td width=\"100%\">\n";
        print "        number: [$i]\n";
        print "    </td>\n\n";
    } elsif ($i == $total_sites) {
        print "    <td width=\"100%\">\n";
        print "        number: [$i]\n";
        print "    </td>\n\n";
    } elsif ($rows == $row_count) {
        $row_count = 0;
        print "    <td width=\"100%\">\n";
        print "        number: [$i]\n";
        print "    </td>\n\n  </tr>\n\n";
    } else {
        print "    <td width=\"100%\">\n";
        print "        number: [$i]\n";
        print "    </td>\n\n";
    }
}
print "  </tr>\n\n</table>\n";