my $sql = q~SELECT * FROM tabelle WHERE spalte = ?~;
my $sth = $dbh->prepare( $sql ) or die $dbh->errstr;

for my $var ( @array ){
    $sth->execute( $var ) or die $dbh->errstr;

    while( my @row = $sth->fetchrow_array ){
        print "@row\n";
    }
}