my $flow_id = $data{partners}{$part_id}{flow}; for my $wfref (@{$data{flows}{$flow_id}}) { #... }