Any kind of push @x, .... for @y should immediately invoke that magic three-letter word, "m a p".

my $new = [ [map $_->{hour}, @data], [map $_->{count}, @data] ];
[download]

-- Randal L. Schwartz, Perl hacker