sub eins {
    my $x = 124;
    zwei( $x );
}

sub zwei {
    my ($x_zwei) = @_;
    print $x_zwei;
}

my $Select1 = 'titel' . ($Titelselect eq '' ? "!='" : "='$Titelselect") . "'";

use warnings;
use strict;

my $Titelselect = 0;
my $Select1;

if ($Titelselect == 0) {
   $Select1 = "titel!=''";
}
else {
   $Select1 = "titel='$Titelselect'";
}
print $Select1;

my $Titelselect = "Test";
my $Select1;

if ($Titelselect eq "") {
   $Select1 = "titel!=''";
}
else {
   $Select1 = "titel='$Titelselect'";
}
print $Select1;

sub ersteRoutine {
        my $string = "Test";
        zweiteRoutine($string);
} # ersteRoutine

sub zweiteRoutine {
        my ($wert) = @_;
        print $wert;
} # zweiteRoutine

while(@ergebnis=$sth->fetchrow_array)