Perl question

[Kekes Stamatis]

>
> Tsk tsk tsk...
>
> Estw oti @x o pinakas pou exei tis times kai to hash %y 8es na exei to
> apotelesma:
>   %y=(map {$_ => $_} @x);
>

Otan kano ena loop kai tou leo na mou typosei ta periexomena tou pinaka mou typonei
ARRAY(0x82499cc). Why that ??


 Idou o kodikas pou to paragei :

my @ll=$result[0];
%opts=( map {$_ => $_ } @ll );
foreach $ll ( @ll )
{
        print $opts{ $ll },$cgi_class->p,"\n";
}

kai o pinakas result exei gemisei apo tin doquery pou mou epistrefei enan
disdiastato pinaka pou ksero oti to mideniko stoixeio einai to apotelesma pou thelo.