Select Code to Download

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

while (my $c = $st->fetchrow_hashref)
{
...
$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};

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

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