$ perl -Mstrict -Mwarnings -le '
    my @all_names = qw{Mary Ken John Ann};
    my @good_names = qw{Mary John Ann};
    my %all_name_data = map { $_ => 1 } @all_names;
    my %is_good_name = map { $_ => 1 } @good_names;

    print "<table>";
    for (sort keys %all_name_data) {
        print "\t<tr><td>",
              $is_good_name{$_} ? "GOOD" : "BAD",
              " - $_</td></tr>";
    }
    print "</table>";
'
<table>
	<tr><td>GOOD - Ann</td></tr>
	<tr><td>GOOD - John</td></tr>
	<tr><td>BAD - Ken</td></tr>
	<tr><td>GOOD - Mary</td></tr>
</table>