if ($item_name eq "Show Link") { my @elements; while ($temp_token = $p->get_token) { last if $temp_token->[0] eq 'E'; if (($temp_token->[0] eq "S") && ($temp_token->[1] eq "value")) { $temp_token = $p->get_tag("item"); push @elements, $p->get_trimmed_text('/item'); } $temp_token = $p->get_token; } $temp_dcr{$dcr_name}{Location} = \@elements; }