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

    ...

    @my_bonly = (); # create null arrays