$s=99;$c='abcdef';for(<>){chomp;$w=$_;$l=y///c;@m=grep{1+index$w,$_}split//,$c;@m>5&&$s>$l||next;$s=$l;$n=$w}print$n #### $s=9;$c='abcdef';for(<>){chop;$w=$_;$l=y///c;(5$l||next;$s=$l;$n=$w}print$n #### $s=9;for(<>){chop;$w=$_;$l=y///c;(5$l||next;$s=$l;$n=$w}print$n #### $s=9;for(<>){chop;$w=$_;$l=y///c;(5$l&&do{$s=$l;$n=$w}}print$n #### $s=9;for(<>){$w=$_;$l=y///c;(6=$l&&do{$s=$l;$n=$w}}print$n