my @another = @{$arr[1]};
for ( $i = 0; $i < 3; $i++ ) {
        print "another[$i] = $another[$i]\n";
}