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