$_[2]=<>=~$"; $_[$_]=($_[$_-2]+$_[$_-1])%$' for 3..$`; print$_[$`]