$a[$l=$_-$']<$a[$_]or@a[$l,$_]=@a[$_,$l],++$%for($'..$`-<>=~$")x(@a=glob<>);print@a~~[sort{$a-$b}@a]?$%:-1