Select Code to Download

use Data::Dumper;
my %my_hash;
my $id;
...
"name": "car",
"id": "97f921-a312-fas2",
"name": "ball",

$ perl   2_lines.pl
$VAR1 = {
          'ball' => ' "97f921-a312-fas2",',
          'car' => ' "fasda-asd-123123-fkja123a",',
          'telphone' => ' "xx-ada-qwebasd",'
        };