use threads::lite;
my $threadFactory = threads::lite->genFactory;

....

my( $Xthread ) = $threadsFactory->create( \&doX, @Xargs );
my( $Ythread ) = $threadsFactory->create( \&doY, @Yargs );