while ( @row = $subs_str->fetchrow_array ) { recursive_print_traversal($row[0]); }