if ($x eq $y) {
my $test = "123";
}

if ($x eq $y) {
my $test = "123";
}

my $test = "";
if ($x eq $y) {
   $test = "123";
}

my $test; # ev auch gleich mit "" oder 0 oder sonstwas vorbelegen, my $test = "";
if($x eq $y)
{
$test = 123;
}

$foo::bar="";

my $test = "123" if $x eq $y;

my $test = "123" if $x eq $y;

C:\>perl
use strict;
use warnings;
my $x = 2;
my $test = 123 if $x;
print $test;
^Z
123
C:\>perl
use strict;
use warnings;
my $x = 0;
my $test = 123 if $x;
print $test;
^Z
Use of uninitialized value in print at - line 5.

C:\>