my $fred = "foo";
for (my $idx = 1; $idx <= 10; $idx++) {

#Changed this line to my
    my $fred = "blah";
#
    $fred = $fred x $idx;
    print $fred, "\n" # foo, foofoo, foofoofoo...
}
print $fred, "\n"; # foo

##</code><code>##

./test.pl
blah

blahblah

blahblahblah

blahblahblahblah

blahblahblahblahblah

blahblahblahblahblahblah

blahblahblahblahblahblahblah

blahblahblahblahblahblahblahblah

blahblahblahblahblahblahblahblahblah

blahblahblahblahblahblahblahblahblahblah

foo