use HTML::Table;

# Create an HTML::Table object
my $table = HTML::Table->new;
$table->addRow('Site Name',
               'Site Address',
               'Status',
               'Comments',
              );
$table->setRowHead(1);

# Add the data one row at a time
foreach my $site (keys %sites) {
  $table->addRow($site,
                 $sites{$site}->[0],
                 $sites{$site]->[1],
                 $sites{$site}->[2],
                );
}
print $table;