NR------E-mail----------Comment---------Dates-------------Age--Action_date
12------Tom@info.com----blablabla-------AM0,PM0,AM1,PM1---32---10-10-2001
13------Frank@info.com--blablabla-------AM0,PM0-----------45---10-10-2001
14------Sand@info.com---blablabla-------AM1,PM1,PM2-------47---10-10-2001
14------Sand@info.com---blablabla-------AM1,PM1,PM2-------47---12-10-2001

##</code><code>##

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

##</code><code>##

Show_analyst_row(\$analyst_record{$c->{ANA_ID}});


sub Show_analyst_row
{
my(%analyst_record) = %{@_};
print "$analyst_record{e_mail}\n";
}