while (my @data = $sty->fetchrow_array()) {