print "hello" for 1 .. $messages;

##</code><code>##

for ( 1 .. $messages ) {
    ...
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $messages = 10_000;
my $limit = $messages + 1;

for ( my $i = 1; $i < $limit; $i++ ) {
    ...
}