my $x;
($x = $a_parts[$_] <=> $b_parts[$_]) && return $x
   for 0 .. $#a_parts;