Perl: копирование одного массива в другой (многомерный)

Question

У меня есть код для копирования нескольких элементов одного массива в другой массив с использованием цикла for, как показано ниже

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

Есть ли способ достичь того же самого с помощью однострочной командыкак "толчок" или что-то подобное?

Answer 1

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

Answer 2

постфикс for немного более краткий

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