...
   map { return $^C if ($a_parts[$_] <=> $b_parts[$_]) };
...