my $sql = 'SELECT name,active 
           FROM comm_desk_widget_status 
           WHERE user = ?';
           
my $sth = $dbh->prepare($sql);
$sth->execute('admin');
my %widget=();
while (my ($name,$active) = $sth->fetchrow_array) {
  $widget{$name} = $active;
}