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