$ perl delete_hash.pl $VAR1 = { 'mno' => { 'pqr' => 4, 'vwx' => 5, 'stu' => 3 }, '0' => { 'def' => 3, 'stu' => 1 }, 'abc' => { 'def' => 1, 'jkl' => 3, 'ghi' => 2 }, '2' => { 'def' => 5, 'stu' => 2 } }; $VAR1 = { 'mno' => { 'pqr' => 4, 'vwx' => 5, 'stu' => 3 }, 'abc' => { 'def' => 1, 'jkl' => 3, 'ghi' => 2 } };