my @a=1..10; # update2

for (1..3) {

  from {@a} loop {
    set my ($a,$b,$c);
    print "(",$a,$b,$c,")";
#    no warnings 'exiting';
#    last;
  };
  
  print "\n";
}
__END__
(123)(456)(789)(10)
(123)(456)(789)(10)
(123)(456)(789)(10)