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