Select Code to Download

sub fetSort($$) {  # Prototype necessary.
    my $ftA = $_[0]->{"fet"};
...
package something_else;

sort netFetObj::fetSort @{ $OBJ->{"fets"} }