#!/usr/bin/env perl

use strict;
use warnings;
use threads;

##</code><code>##

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

##</code><code>##

__DATA__
list.txt line 1
list.txt line 2
list.txt line 3

##</code><code>##

Thread 1: list.txt line 1
Thread 2: list.txt line 2
Thread 3: list.txt line 3