[$ while ( $dat = $sth_sd -> fetchrow_arrayref ) $]