OK, maybe $loop was not a good choice, let's use $n

for my $n (1..10){
  print 'My $n variable is : ',$n,"\n";
}
[download]

or nothing

for (1..10){
  print 'My $_ variable is : ',$_,"\n";
}
[download]

poj