Well ... you could do that ... ;) or you could do this:

use DBI;
use Data::Dumper;
use Math::Matrix;
 
my $dbh = DBI->connect(
    qw(DBI:vendor:database:host user pass),
    {RaiseError=>1},
);
 
my $sth = $dbh->selectall_arrayref('select id,first,last from user');
my $matrix = Math::Matrix->new(@$sth);
 
print Dumper $matrix->transpose;
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)