my @rows = (
    [qw/johnny 2 12-09-2008/],
    [qw/rob 2 25-10-2008/],
);

my $format = "%-8s %-5s %-8s\n";
printf $format, qw/Username Level Created/;
printf $format, @$_
  for @rows;
__END__
Username Level Created
johnny   2     12-09-2008
rob      2     25-10-2008