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