sub f {
    ($x,$y)=@_;print$x--while$x>=$y
}

##</code><code>##

perl -le '$_=ord$/;print$_--while$_'