You can use DBI method fetchall_arrayref()

my $matrix = $sth->fetchall_arrayref();
[download]

instead of

  my (@matrix) = ();
  while (my @ary = $sth->fetchrow_array())
  {
     push(@matrix, [@ary]); 
  }    
}
[download]

Can you show a part of your script which generates an HTML page?

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);