# Datenbank öffnen
my $dbh=DBI->connect(...) or die("ERROR CONNECT: $DBI::errstr\n");

# abfrage:
my $sth=$dbh->prepare('SELECT (name,preis,menge) FROM ... WHERE ...');
$sth->execute(...);

my @Artikel;
my $Artikel_count=0;
while(my $array_ref=$sth->fetchrow_arrayref())
{
  $Artikel[$Artikel_count]=$array_ref;
  $Artikel_count++;
}

...