use Thread; 
    $thr = new Thread \&sub1;

    @ReturnData = $thr->join; 
    print "Thread returned @ReturnData";

    sub sub1 { return "Fifty-six", "foo", 2; }