#!/usr/bin/env perl -l

use strict;
use warnings;

my @x = qw{X A B};
my $x = shift @x;
my @y = map { [ $_ ] } @x;
push @$_, $x for @y;
print join ',' => map { "@$_" } @y;