in reply to how to assign map results to arrays

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

[download]
Perl reduces RSI - it saves typing

In Section Seekers of Perl Wisdom