sub chain {
    my ($genome,@genome) = @_;
    for ($i..$#genome) {
 ....