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

      [$ foreach $k @selected_speech $]

           [$ if $dat->[1] eq $k $]
               checked
           [$ endif $]


      [$ endforeach $]

[$ endwhile $]