use strict;
use warnings;
my @kk = (["Hello","Perl"], ["Monks"]);

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