while (my $row = $_read_sth->fetchall_arrayref)
{
    # What's inside $row?
    use Data::Dumper;
    print Dumper( \$row ) and exit;
    # take a close look at the output