my @new_array; for ( @array ) { if ($_ =~ /CONTENT/) { my @list = getlist( $type, $index ); push @new_array, @list; } else { push @new_array, $_; } } @array = @new_array;