die "different counts for out_user_steps and out_dates" unless @{ $xml->{out_user_steps} } == @{ $xml->{out_dates} }; my %dates; for my $idx (0..$#{ $xml->{out_dates} }) { $dates{$xml->{out_dates}[$idx]{content}} = $xml->{out_user_steps}[$idx]{$content} }