my $x = 1;
if ($x) {} # true
$x = 0;
if ($x) {} # false
$x = "";
if ($x) {} # false
$x = <alles ausser 0 oder leerstring>;
if ($x) {} # true