$_=9;for$a(0..9){for$b($a..9){$_.=$a.$b}s/$a$a/$a/}print