#!/usr/bin/perl -lanF_
"@F"=~$r[$_-1]&&print"$.,$_"for 1..@r;$_="{@F}.+{@F}";y/ /,/;push@r,join'|',glob