my $i;

format STDOUT_TOP=
Rank Name                  Posts
--------------------------------
.
format STDOUT =
@||| @<<<<<<<<<<<<<<<<<<<< @<<<<
$i, $results[$i]->[0], $results[$i]->[1]
.

for $i (0..9) {
	write;
}