package netFetObj;
sub fetSort {
print " ######### A = $something_else::a \n";
print " ######### B = $something_else::b \n";
    my $ftA = $something_else::a->{"fet"};
    my $ftB = $something_else::b->{"fet"};
    $fetType->{$ftA} <=> $fetType->{$ftB}
}

  
package something_else;
    foreach my $fetOBJ ( sort netFetObj::fetSort @{ $OBJ->{"fets"} } ) {
        buildFet($FH,$fetOBJ,$OPT);
    }