Help for this page
aa = 0 ... bc = 1 cc = 2 cd = 2
@segments = split("_", $line);
$hash{$segment[0]} < $hash{$segment[1]}