Statement Perl

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