%rec = { "telephone": "xx-ada-qwebasd",
         "car": "fasda-asd-123123-fkja123a",
         "ball" "97f921-a312-fas2",
};

##</code><code>##

#!/usr/bin/perl

use strict;

my %rec;
while(<DATA>) {
    s/\"//g;
    if ( /id:/ ... /id:/)  {
        my ($a) = /id: (\S+),/;
        my ($b) = /name: (\S+),/;
        print "$a - $b\n";
        $rec{$b} = $a;
    }
}
__DATA__
"id": "xx-ada-qwebasd",
"name": "telphone",
"id": "fasda-asd-123123-fkja123a",
"name": "car",
"id": "97f921-a312-fas2",
"name": "ball",