#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Data::Dumper qw/Dumper/;

my $database = "dbname";
my $host = "localhost";
my $user = "username";
my $pw = "pw";
my $searchstring = "ein in Spalte 1 vorkommender Wert"; # hier muss ein ; hin

my $dsn = "dbi:mysql:$database:localhost:3306";

# was ist mit den Attributen?
my $dbh = DBI->connect($dsn, $user, $pw) or die("err connect: " . DBI->errstr());

my $sql = 'select * from dbname where value1 = ?';
my $sth = $dbh->prepare($query) or die("err prep: " . DBI->errstr());

# hier werden die Werte eingefügt, die für die Platzhalter eingefügt werden sollen.
# du hast 1 Platzhalter, also übergibst du 1 Wert.
my $rv = $dbh->execute($searchstring) or die("err exec: " . DBI->errstr());

# rv kann man auswerten, muss man aber nicht (wird nicht von allen Datenbanken unterstützt).

while( my $arrayref = $sth->fetchrow_arrayref() ) {
 
    # du machst ein print OUTPUT, aber was ist OUTPUT? Ein Datei-Handle?
    # die Konsole ist glaube ich STDOUT
    print Dumper $arrayref; # Data::Dumper ist cool!

}