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";
}              

##</code><code>##

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: