Array Perl

foreach $Index (1..10) {
    $i = $Index - 1;
    $Array[$i] = $Index ** 3;
}