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

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

my @Artikel;
while(my $hash_ref=$sth->fetchrow_hashref())
{
  push(@Artikel,$hash_ref);
}

# Ausgabe:
for my $artikel (@Artikel)
{
  print_Artikel($artikel);
}

sub print_Artikel
{
  $artikel = shift;
  print "<!-- Name:   $artikel->{name} -->\n";
  print "<!-- Preis:  $artikel->{preis} -->\n";
  print "<!-- Anzahl: $artikel->{anzahl} -->\n";
  print "<!--geht2-->\n\n";
}