my @step = (1..9, 0);      # Use of comma operator, no need for push
my $step = join '', @step; # Use of specific function for the task
print ($step x 7);

##</code><code>##

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

##</code><code>##

print ((1..9, 0) x 7);