Select Code to Download

    my $bonly_ref = shift; # input array Bonly
    my @my_bonly = @$bonly_ref; # input array Bonly
...
    ...

    @my_bonly = (); # create null arrays

    my (%count, @isec, @diff, @union, @aonly) = ();