$s=9;for(<>){chop;$w=$_;$l=y///c;(5$l||next;$s=$l;$n=$w}print$n