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

##</code><code>##

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