my @ary = map { int ($_ / 10) . '.' . ($_ % 10) } (15..94);