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