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