Select Code to Download

use strict;
use warnings;
...

    $_->join for @th;
}

>perl 807726.pl 0
THPING
...
PINGIT
PINGIT
PINGIT