$ perl -Mstrict -we 'my ($x,$y)=(0,0); if ($x eq my $y) {}' 
Use of uninitialized value $y in string eq at -e line 1.