fixed HTML generated list for supported cards; closing outfile before finished writing to it

projects/mtg/tools/miki/createHTMLList_SupportedCards.pl

@@ -62,6 +62,8 @@ print OUTFILE $headerRow . "\n";;
 
 foreach my $key ( @keys )
 {
+	my $cardCount = $#{$data->{$key}} + 1;
+	print "Processing $key ($cardCount cards)\n";
 
 	print OUTFILE "<h2 style=\"width: 100%\"><span id=\"$key\">";
 	print OUTFILE "$key" ;
@@ -70,10 +72,8 @@ foreach my $key ( @keys )
 
 	print OUTFILE "<ul id=\"index_$key\">\n";
 	print OUTFILE map "\t<li>$_</li>\n", @{$data->{$key}};
-	print OUTFILE "</ul>\n\n";
-	close OUTFILE;
 	print OUTFILE "</ul>\n\n";
-}
+}
 close OUTFILE;
 print "$totalCardCount Processed\n";