my @step=(1..9);
push (@step, 0);
my $step;
foreach (@step) {
  $step . $_;
}
print ($step x 7);