my $i;
my $format = "format STDOUT =\n"
			 . '@>>> '
			 . '@' . '<' x ($longest + 3)
			 . " @<<<<\n"
			 . '$i, $results[$i]->[0], $results[$i]->[1]'
			 . "\n.\n";

print $format;
eval $format;
die $@ if $@;

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