sub f{for($t=pop;$_=$$t{d}cmp$_[0]and$t=$$t{$_};){}$t}