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