while (my $c = $st->fetchrow_hashref)
{
my %analyst_record;
$a_record{$c->{ANA_ID}}{e_mail}=$c->{EMAIL}};
$a_record{$c->{ANA_ID}}{Dates}{comment}=$c->{DETAIL};
$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_0}}=$c->{AM_0};
$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_1}}=$c->{AM_1};
$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_2}}=$c->{AM_2};
$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_3}}=$c->{AM_3};
$a_record{$c->{ANA_ID}}{Dates}{$c->{ACTION_DATE}}{$c->{AM_4}}=$c->{AM_4};