for my $number ( 1 .. 10 ) {
    print $number;
}

##</code><code>##

for my $number ( 1 .. 10 ) {
    $number *= $number;
    print $number, "\n";
}