$-*=$a[$_]!=$a[$_+1],$%+=$a[$_]*++$-for reverse!<>..(@a=glob<>)-2;print$%