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;