$x="2d8" ;
print (++$x. "\n") ;
print (++$x. "\n") ;
print (++$x. "\n") ;