Array Perl

foreach $Index (0..9) {
        print "The cube of ", $Index + 1, " is $Array[$Index]\n";
    }