DB<1> @x = qw{X A B};

  DB<2> $x = shift @x;

  DB<3> print map {" $_  $x,"} @x;
 A X, B X,