$anfrage = "SELECT userid, status FROM tabelle1 WHERE username='$username';";
&datenbank;
$ergebnisse = $sth->fetchall_arrayref( { userid => 1, status => 1 } );

foreach(@$ergebnisse)
{
   $userid = $_->{userid};
   $status = $_->{status};
}

sub datenbank
{
   if ($anfrage eq "") { $message = "Keine MySQL-Anfrage"; &error_end; }
   use DBI;
   my $dbh = DBI->connect("DBI:$dbdriver:$dbdatabase:$dbhost:$dbport", $dbuser, $dbpassword, { PrintError => 0, RaiseError => 0 } );
   $sth = $dbh->prepare($anfrage) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
   $sth->execute() || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
}

my ( $userid, $status )  = $dbh->selectrow_array( "SELECT userid, status FROM tabelle1 WHERE username=$username");