#!/usr/bin/perl -lapF_
for$p(@p){$;.="$_ and $p
"if 1<grep"@F"=~$_,split/_/,$p}push@p,$_}{$_=$