#!/usr/bin/env perl

use strict;
use warnings;

my %data = (
    tony => {
        skill => [ 1, 1 ],
        skill1 => [ 0, 0 ],
    },
    martin => {
        skill => [ 1, 0 ],
    },
);

print qq{<table border="1" cellpadding="2" cellspacing="0">\n};
print "<tr>
    <th>Name</th>
    <th>Stage</th>
    <th>Old</th>
    <th>New</th>
</tr>\n";

for my $name (sort keys %data) {
    print "<tr>\n";
    my $rowspan = keys %{$data{$name}};
    print qq{   <td rowspan="$rowspan">\u$name</td>\n};

    for my $stage (sort keys %{$data{$name}}) {
        print "   <td>$stage</td>\n";

        for (@{$data{$name}{$stage}}) {
            my $bool = $_ ? 'True' : 'False';
            print "   <td>$bool</td>\n";
        }

        --$rowspan && print "</tr>\n<tr>\n";
    }

    print "</tr>\n";
}

print "</table>\n";