while (my $ref = $sth->fetchrow_hashref())
        {
        ...