foreach my $row (@data) {
  push @{$hash{$row->[0]}}, {
                  companyid =>  $row->[1],
                  apptype   =>  $row->[2],
                  state   =>  $row->[3],
                  count   =>  $row->[4],
                };
}