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