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

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

##</code><code>##

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

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