$ perl -e '
> $format = qq{%-10s%-7s%-12s\n};
> @headings = qw{ Username Level Created };
> printf $format, @headings;
> @rows = (
>    [ qw{ johnny 2 12-09-2008 } ],
>    [ qw{ rob 2 25-10-2008 } ],
>    );
> printf $format, @$_ for @rows;'
Username  Level  Created     
johnny    2      12-09-2008  
rob       2      25-10-2008  
$