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


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