@ar1 = split(';', $num1);
@ar2 = split(';', $num2);