my ( $one , $two , $three ) = TS_Konvertierung(); print "\n"; print "Variable I : $one" , "\n"; print "Variable II : $two" , "\n"; print "Variable III : $three" , "\n"; print "\n";