my $query = qq(select distinct roomid, name from rooms order by roomid);
my $sth = $dbh->prepare($query) or die qq(Failed to prepare query: $dbh->errstr)
;
my $ret = $sth->execute() or die qq(Failed to execute query: $dbh->errstr);
my @row = $sth->fetchrow_array() or die qq(Failed to fetch data: $dbh->errstr);