I've got some data in a database table like this:

[cams] users> SELECT *, DAY(stats_date) as stats_day FROM stream_updat
+e_stats_daily WHERE MONTHNAME(stats_date)='March' AND YEAR(stats_date
+)=2006 ORDER BY DAY(stats_date) LIMIT 3\G
*************************** 1. row ***************************
       stats_date: 2006-03-01
    diary_entries: 2
  photos_uploaded: 0
  videos_uploaded: 0
 stream_questions: 0
             msgs: 12
     date_entered: 2006-03-27 17:32:28
messages_received: NULL
        stats_day: 1
*************************** 2. row ***************************
       stats_date: 2006-03-02
    diary_entries: 7
  photos_uploaded: 0
  videos_uploaded: 0
 stream_questions: 0
             msgs: 4
     date_entered: 2006-03-27 17:35:43
messages_received: NULL
        stats_day: 2
*************************** 3. row ***************************
       stats_date: 2006-03-03
    diary_entries: 2
  photos_uploaded: 0
  videos_uploaded: 0
 stream_questions: 0
             msgs: 2
     date_entered: 2006-03-27 17:42:10
messages_received: NULL
        stats_day: 3
3 rows in set (0.01 sec)

[cams] users>
[download]

and I have the ability to turn this data into a Perl array of hashrefs, with one array element for database row:

@ar = (
 { stats_date => '2006-03-01', diary_entries => 2, msgs => 12, stats_d
+ay => 1},
 { stats_date => '2006-03-02', diary_entries => 7, msgs => 4,. stats_d
+ay => 2},
 { stats_date => '2006-03-03', diary_entries => 3, msgs => 2,. stats_d
+ay => 3},
);
[download]

But the issue is, I need a hashref of arrays so that this data can be properly displayed:

{ 
  diary_entries => [ 2,  7, 3],
  msgs          => [ 12, 4, 2]
}
[download]

I thought there was a CPAN module that did this sort of thing but I can't recall the name of it.