#!perl -pla @b=split' ',<>; $x=$y=50; $x+=$b[$x]==$_ for @F; $y-=$b[$y]==$_ for reverse@F; $_=101-$x+$y