#!/usr/bin/env perl

use strict;
use warnings;
use threads;

my $n = 0;
while (<DATA>) {
    print 'Thread ', ++$n, ': ', $_;
}