my $output = qq~Username\tLevel\tCreated\n~;

foreach my $row (@rows) {
    $output .= qq~$row->[0]\t$row->[1]\t$row->[2]\n~;
}