perl: copying one array to another (multi-dimensional)

Question

I have a code for copying few elements of one array to another array using a for loop as shown below

for $count_val (0..($TOTAL_CNT_VAL-1)) {
      $me->{arr1}[$count_val]{cpu} = $me->{arr2}[$count_val];  
}

Is there any way that the same thing can be achieved using a single line command something like "push" or something similar ?

Answer 1

后缀for是一个小更简洁

$me->{arr1}[$_]{cpu} = $me->{arr2}[$_] for 0..$TOTAL_CNT_VAL-1;

Answer 2

use 5.18.2;
use strict ;
use warnings ;
use Data::Dumper;
$me->{arr1}[$_]{cpu} = @me->{arr2}[$_][0..$TOTAL_CNT_VAL-1];