my $final_data;
 for my $id ( keys %{$data} ) {
   
   my $data = $data->{ $id }->{accounts};
   push @{$final_data->{$id}}, $data  if $data;

 }