#!/usr/bin/perl
sub p{printf@_}for(;$|=p"%5uK",$f;p"\n"){map{
p$f++%10?".":" .";select$u,$u,$u,rand.3}1..50}