I’m guessing that — contrary to the title — “a list like X A B” is actually a hash in which the value corresponding to the key “X” is an anonymous array containing the elements “A” and “B”. If this guess is correct, the following should give the output required:

#! perl
use strict;
use warnings;

my %hash = ( X => [ qw( A B   ) ],
             Y => [ qw( C D E ) ],
             Z => [ qw( F G H ) ], );

for my $key (sort keys %hash)
{
    my $array_ref = $hash{$key};
    print "$_ $key, " for @$array_ref;
}
[download]

Output:

14:29 >perl 737_SoPW.pl
A X, B X, C Y, D Y, E Y, F Z, G Z, H Z,
14:29 >
[download]

Hope that helps,

As others have stated, it is unclear what you want here. Your title and text seem to have no relationship to each other. Please read the guidelines in "How do I post a question effectively?" and follow them before posting again.

My best guess at what you're after:

#!/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;
[download]

Output:

A X,B X
[download]

Or, perhaps a simpler alternative demonstrated under the Perl debugger:

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

  DB<2> $x = shift @x;

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

Well, other than going into a discussion of the Associative Property, I (and I'm sure many others) have no clue what you are asking.

i tried many thing..

Can you show what you tried?