while (<DATA>) {
    threads->create(sub { print 'Thread ', threads->tid, ': ', $_ })->join;
}