@MyArray = split(/\~/,$var1);