use threads;use Time::HiRes 'sleep';
$|=1;@_=('creaJ','klrnu','e  os','rhPtt',',aeh ');
push@,,threads->create('_',$_)for@_;
$_->join()for@,;
sub _{while($_[0]=~/(.)$/){print $1;chop$_[0];sleep.1}}