Help for this page
Please read my original reply again. My suggested fix was not to repla +ce ($x==4) ... my $x; with my $x=0;
($x==4) with ($x==0)