my @mesages = (...);

my $pass = 0;
for my $message (@messages) {
    sleep(5) if !$pass++;
    print($message);
}