Good idea about that last array, but this are troubles for in an later stadia....

I been coding just a bit and there still seems a trouble...

lets say hashfilling is ok...

while (my $c = $st->fetchrow_hashref)
{

my %analyst_record;
$analyst_record{$c->{ANA_ID}}{e_mail}=$c->{EMAIL};

print STDERR "Hash: $analyst_record{$c->{ANA_ID}} \n";
Show_analyst_row($analyst_record{$c->{ANA_ID}}); 
...
...
...
sub Show_analyst_row
{
my(%analyst_record)=%{@_};

print STDERR "sub: $analyst_record{description} \n";
print "Valerie $analyst_record{description} \n";
print "</TR>\n";
}
[download]

So I did remove the \ for the reference...

But still he only prints "valerie" for every record in the query, Is it possible that there is still something wrong in the receiving of the reference cause when I just print and don't call the subfunction he does print the E-mail(uderstand what I mean?)

here is the log of my errorlog(notice the prints I putted in the code for that)

Hash: HASH(0x4039b1f0)
sub:
Hash: HASH(0x4039b1d8)
sub:
Hash: HASH(0x4037dfbc)
sub:
Hash: HASH(0x4039b3c4)
sub:
Hash: HASH(0x4039b3b8)
sub:
Hash: HASH(0x403aa028)
sub:
Hash: HASH(0x4039b214)
sub:
[download]

thanks for looking.
Merlijn