foreach my $i (3..18) {
  print $i;
}