sub interleave {
    # PNAMBIC; I'm just making two arrays using length args
    @a = split //, "A" x shift;
    @b = split //, "B" x shift;
    
    # Some magic happens here with @$a and @$b
}