sub intermix
{ 
    return (
        substr( $a, 0, rindex($a, '.'))
        eq 
        substr( $b, 0, rindex($b, '.'))
        )
    ? 1 : 0;
}