#!perl -pla my($r,$j,@d,@c); $_=<>; unshift@{$c[$_]},$j++for split; $r<($d[$_+1]=$k=$d[$_]+1)&&($r=$k)for map@{$c[$_]},@F; $_=100-$r;