for my $i (0..10) {
  my $n = $i*5;
  print "$n\n";
}