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