aa = 0
ab = 0
bb = 1
bc = 1
cc = 2
cd = 2

##</code><code>##

@segments = split("_", $line);

##</code><code>##

$hash{$segment[0]} < $hash{$segment[1]}