my %my_hash;
while <DATA> {
     chomp;
     my $id = (split /:/, $_)[1] if /id/;
     if (/name/) {
          my $name =~ /: "(\d+)"/;
          $my_hash{$name} = $id;
     }
}