@$_=glob<>for a..c;($x=$c[$i++])ne$_&&print"$i
$_
$x"for@b