my @bucketList = $_xmlData->{Bucket}; open(DEBUG, ">bucketList.txt"); print DEBUG Dumper(@bucketList); close(DEBUG); foreach my $bucket ( @bucketList ) { open(DEBUG, ">bucket.txt"); print DEBUG Dumper($bucket); close(DEBUG); } #### $VAR1 = [ { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }, { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }, { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }] #### $VAR1 = [ { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }, { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }, { 'ExeVersion' => NDA_BLOCKED, 'ModuleVersion' => NDA_BLOCKED, 'ResponseStatus' => NDA_BLOCKED, 'ExeName' => NDA_BLOCKED, 'Priority' => NDA_BLOCKED, 'TotalHits' => NDA_BLOCKED, 'ResponseURL' => NDA_BLOCKED, 'ModuleName' => NDA_BLOCKED, 'BucketID' => NDA_BLOCKED' }]