(@ar1[0..2], @ar2[0..2]) = map { split(';', $_) } ($num1, $num2);