C:\Old_Data\perlp>perl t5.pl $VAR1 = { '001!L!311895' => { 'owner' => [ '/prod-data/J', '001!L!311895', 'X', 'jmorg', '2015244', '134', 's/109', '13:48:32', 'Jul 20' ], 'waiter' => [ [ '/prod-data/J', '001!L!311895', 'X', 'jmorg', '5713932', '191', 'ts/46', '14:01:42', 'Jul 20' ] ] }, '001!10274882' => { 'owner' => [ '/prod-datahi', '001!10274882', 'X', 'rfuse', '3354796', '61', 'ts/43', '13:39:02', 'Jul 20' ], 'waiter' => [ [ '/prod-datahi', '001!10274882', 'X', 'jmorg', '3584038', '247', 'ts/49', '13:39:22', 'Jul 20' ] ] }, '00151120273' => { 'owner' => [ '/prod-data/J', '00151120273', 'X', 'jmorg', '3584038', '247', 'ts/49', '13:38:12', 'Jul 20' ], 'waiter' => [ [ '/prod-data/J', '00151120273', 'X', 'jmorg', '2015244', '134', 's/109', '13:48:32', 'Jul 20' ], [ '/prod-data/J', '00151120273', 'X', 'gdavi', '1359996', '62', 'ts/20', '13:54:22', 'Jul 20' ] ] } }; C:\Old_Data\perlp>