For #1 you could shorten that "result" hash code by using array slices:

my %results = ();
@results{ @row[5..10] } = @row[11..16];
[download]

You also don't need to quote your "$row[xyz]" declarations.

I'm not sure what to tell you about those totals though. I can tell you that this is a very strange way to design a database... having "column names" stored in columns. I would suggest a rewrite and then you can use fetchrow_hashref a lot easier. But that's just me.

--
perl -e "print qq/just another perl hacker who doesn't grok japh\n/"
simeon2000|http://holdren.net/