Select Code to Download

alias $heap->Push( $dna );

my $heapPush= aliasize $heap->can("Push");
$heapPush->( $heap, $dna );

my @x;

...
        $x[$j]= $t;
    };
}

swap( 0, 1 );
exchange( 0, 1 );
swap( 0, 0 );