$VAR1 = { Key1:Key1_si => { 'KeyA' => { Keya => 'abcd, defg', keyb => '1000', keyc => '80%', keyd => '2011.10.09', keye => '1234-UR-DDDD', keyf => 'rwh', keyg => '600', keyh => 'red', keyi => '900', keyj => '', keyk =>'int4678_tt', }, 'KeyB' => { Keya => 'abcd, defg', keyb => '2000', keyc => '100%', keyd => '2011.11.09', keye => '1234-UR-DDDD', keyf => 'rwh', keyg => '500', keyh => 'red', keyi => '400', keyj => '', keyk =>'int4678_tt', }, }, };