my $num1 = "1;2;3";
my $num2 = "4;5;6";

my (@ar1, @ar2);

for (
   [ $num1, \@ar1 ],
   [ $num2, \@ar2 ],
} {
   my ($num, $ar) = @$_;
   @$ar = split /;/, $num;
}