use Data::Dumper;
my %my_hash;
my $id;
while (<DATA>) {
     chomp; s/\r//g;
     $id = (split /:/, $_)[1] if /id/;
     if (/name/) {
          my $name = $1 if /\: "(\w+)"/;
          $my_hash{$name} = $id;
     }
}
print Dumper \%my_hash;
__DATA__
"id": "xx-ada-qwebasd",
"name": "telphone",
"id": "fasda-asd-123123-fkja123a",
"name": "car",
"id": "97f921-a312-fas2",
"name": "ball",