$sql = "CREATE TABLE depend (\
      usedby VARCHAR(80) NOT NULL ,\
      uses   VARCHAR(80) NOT NULL \
      )";
   $dbh->do($sql);


##</code><code>##

   $sql = "SELECT usedby FROM depend where uses=$name";
   $aref  = $dbh->selectall_arrayref($sql);
   my @uses = map {$_->[0]} @$aref;

   $sql = "SELECT uses FROM depend where usedby=$name";
   $aref = $dbh->selectall_arrayref($sql);
   my @usedby = map {$_->[0]} @$aref;