$SELECT_MOST = "irgendein select";
$select_most = $dbh->prepare( "$SELECT_MOST" ) ||
	die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
$select_most->execute ||
	die "Kann Abfrage nicht ausfuehren: $DBI::errstr\n";
while (my @TMP = $select_most->fetchrow_array()) {
    mache irgendwas mit dem output ....
}#while (my @TMP = $select_most->fetchrow_array()) {