p $startcord
p @orthologous
p $starthash{$i}