Select Code to Download

my @message = (
    "Message 1",
...
my $msg_time = 5;

print $message[ time / $msg_time % @message ], "\n";