ooh, I think your problem is here...
my(%analyst_record)=%{@_};
change this to
my(%analyst_record)=%{$_[0]};
or my(%analyst_record)=%{shift};

                - Ant
                - Some of my best work - Fish Dinner