Schau doch mal in die perldoc threads:

perldoc threads

$thr = threads->create(FUNCTION, ARGS)
...
FUNCTION may either be the name of a function, an anonymous subroutine, or a code ref.

Ich lese Dein Beispiel (Zeilen 17 und 19) derzeit so:

Du rufst in Deinem Code Deine Subroutinen auf und übergibst deren Rückgabe an die create() Methode...
Das ist glaub ich nicht unbedingt das, was Du willst, oder doch?