my @results; my @tmp_array = @{ $RegObj->{SUBKEYS} }; $RegObj->{MEMBERS} = \@tmp_array; for my $member (@{ $RegObj->{MEMBERS} }) { next unless $member =~ /\$/; $member =~ s/\$/$RegObj->{DELIM}/; push @results, $member; } @results;