my @array = map { $hash{$_} ? "$_.found" : "$_.lost" } 1 .. $max_found;

##</code><code>##

$array[$number] = "$number.found";

##</code><code>##

@array = map { $array[$_] ? $array[$_] : "$_.lost" } 1 .. $#array;