foreach statement with number range
#!/usr/bin/perl -w use strict; my $number; foreach $number (1 .. 10) { print "the number is: $number\n"; }