#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11162727
use warnings;
use List::Util qw( reductions );
use Data::Dump 'dd';

dd map s/.*\K,/ and/r, reductions { "$a, $b" } 'A'..'Z';