Select Code to Download

#!/usr/bin/env perl -l

...
my @y = map { [ $_ ] } @x;
push @$_, $x for @y;
print join ',' => map { "@$_" } @y;

A X,B X