while (my $row = $sth->fetchrow_arrayref) {
    foreach ($row){
    if (! ref($row)) {
        next;
    }
        print @$row, "\n";
}
}

##</code><code>##

"select program, day, time 
from TVviewingsked 
where name = "Frank"