Select Code to Download

use strict;
use warnings;
...
print "BL2:\n";
push @bl2,$_ for @source;
print "@$_\n" for @bl2;

BL1:
1
...
1 2 3
4 5 6
7 8 9