You're storing a string, not a hash reference. A list of lists would be better:
@FreqListInfoTmp = (
[ 1, \%HourCalledFreq, "Hours of day calls were made" ],
[ 2, \%DateFreq, "Dates calls were made" ],
[ 3, \%CallFreq, "How many callers called how many times" ],
[ 4, \%DaysOnlineFreq, "How many days callers were online for" ],
[ 5, \%HoursOnlineFreq, "How many hours callers were online for" ]
+,
[ 6, \%MinsOnlineFreq, "How many mins callers were online for" ],
[ 7, \%ClipsVisitedMaster, "How many times which clips were visite
+d" ],
[ 8, \%CallsMaster, "Detailed info on each caller" ]
);
foreach my $list (@FreqListInfoTmp) {
$FreqListInfo{$list->[0]}{NO} = $list->[0];
$FreqListInfo{$list->[0]}{HASH} = $list->[1];
$FreqListInfo{$list->[0]}{DESC} = $list->[2];
}
Untested, but if you've read perldsc you'll understand. |