The part of your code where you fill in the array of arrays could be written far more efficiently like this:

my @list_of_teamdata;

while (my @row = $sth5->fetchrow_array()) {
  push @list_of_teamdata, \@row;
}
[download]

As for your "uninitialised value" error, I'd look at the database and make sure you don't have any null values in the teamname column.

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me