#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Thread qw(async);

async {
    my @messages = qw(Hoge Fuga Hago);
    my $interval = 3;
    while () {
        foreach my $v (@messages) {
            say $v;
            sleep $interval;
        }
    }
};

print while (<>);