Select Code to Download

use strict;
use warnings;
...
    local $" = q{, };
    print qq{[ @$raSubArray ]\n};
}

[ 1, 2 ]
[ 3, 4 ]
[ 5, 6 ]
[ 7, 8 ]
[ 9 ]