Hi!

The following code creates a second array which is the original one completed with the missing elements. You can then copy it back over the old one. Otherwise, you can try to work something out with splice() to work directly on the original array.

use strict;

my @array = ("1.found","2.found", "4.found", "5.found");
my @array2;

my $i = 1;
foreach my $a(@array) {
    my ($n) = split /\./, $a;
    while ($n > $i) {
        push @array2, "$i.lost";
        $i++;
    }
    push @array2, $a;
    $i++;
}
[download]

Michele.