Select Code to Download

use strict;
use warnings;
...
 my @test = @{$kk[$i]};
 print Dumper(\@test);
}

use strict;
use warnings;
...
foreach my $i(0..$#kk){
 my @test = @{$kk[$i]};
}