$|=1;
for$y(0..9){
print map"$y$_ ",@a='00'..'99';
<>=~u&&exit for@a
}