for $loop (1 .. $last_id) {
  for $count ( 97 .. 122) {
   $bla=chr($count);
   if ( ($list[1+($loop-1)*2]=~/^$bla/i) and (! $$bla) ) {
    $$bla="<a name=\"$bla\"></a>\n";
    print $$bla;
   }
  }
 }