my @ray = split(/~/,$tst_str,-1);