please try this: push @{$hash{$1}}, $2 while $data =~ /object_label\s+:\s+(\S+)[^:]+:\s+(\S+)/g;
In reply to Re^3: map to hash of arrays by ccn in thread map to hash of arrays by emilford