programming-examples/perl/Statement/foreach statement with number range.pl

#!/usr/bin/perl -w

use strict;

my $number;

foreach $number (1 .. 10) {
    print "the number is: $number\n";
}