Your code:

while (@row = $sth->fetch)  # don't do this
[download]

is wrong. In DBI, fetch() is an alias for fetchrow_arrayref so its return is a scalar (an array reference), not an array.