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

    ...

    @my_bonly = (); # create null arrays

##</code><code>##

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