DB<132> @x=(4,2);$x=42; $y=0; 
          while ($y++<3) {
             $x=$y; 
             print "$x -" ; 
             reset('x') if $y>1 ;
             print " $x : @x\n"; 
          }
1 - 1 : 4 2
2 -  : 
3 -  :