#!perl -pla
$_=1;$_+="@F"-$F[$_]+pop@F!=$F[-$_]while$_<@F