print { (split ":", $a)[0] <=> (split ":", $b)[0] }