sub mysplit (\@;@) {
        local $" = "|";
        split "@{+shift}" => @_;
    }
    @chunks = mysplit @array => $str;