$ perl -E " say  for [1..4],[5..8] "
ARRAY(0x3f8adc)
ARRAY(0x9b9eac)

##</code><code>##

$ perl -E " say  for @{ [1..4],[5..8] }"
5
6
7
8

##</code><code>##

$ perl -E " say @$_ for [1..4],[5..8] "
1234
5678

##</code><code>##

$ perl -E " say 1,2,3,4; say 5..8; "
1234
5678

##</code><code>##

$ perl -E " say qq{@$_} for [1..4],[5..8] "
1 2 3 4
5 6 7 8

##</code><code>##

$ perl -E " say qq{[@$_]} for [1..4],[5..8] "
[1 2 3 4]
[5 6 7 8]

##</code><code>##

$ perl -E " local $\"=q{,}; say qq{[@$_]} for [1..4],[5..8] "
[1,2,3,4]
[5,6,7,8]

##</code><code>##

$ perl -E " say q{[}, join( q{,},  @$_ ), q{]} for [1..4],[5..8] "
[1,2,3,4]
[5,6,7,8]


##</code><code>##

$ perl -E " %f = 6..9; say for values %f; "
9
7

$ perl -E " %f = 6..9; say for scalar values %f; "
2