my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
$link .= $lastchar eq 'a' ? '.' : chr( ord($lastchar) - 1 )
unless $lastchar eq '.';
+ next if $link eq $links[$i]->[0] and $i;
$links[$i]->[1] = $link;
}
$links[-1]->[1] = '';
+ $links[0]->[0] = '';
return \@links;
}