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