my $step = join '', (1..9, 0);
print ($step x 7);