use strict; use warnings; my @A = qw/a b c/; my @B = qw/1 2 3/; print "$_\n" for <@A,@B>; print '*' x 10, "\n"; print "$_\n" for (@A,@B);