my @step=(1..9);
push (@step, 0);
my $step;
foreach (@step) {
  $step . $_;  <<<<< HERE. This should be "$step .= $_;"
print ($step x 7);
[download]

The second example doesn't even compile. I could just show you the problem, but it would probably be more helpful for you to use strict; and figure it out ;)