Select Code to Download

my @arrays = map { [ split /;/, $_ ] } @nums;

my $num1 = "1;2;3";
my $num2 = "4;5;6";
...
   my ($num, $ar) = @$_;
   @$ar = split /;/, $num;
}