Getting familiar with arrays

Script

#!/usr/bin/perl

@numbers = (1,2,3,4,5,6,7,8,9,10,20,30,40,50,60,70,80);

print "\n";
print "All numbers in a horizontal line: \n";
print "@numbers \n\n";
print "Print from numbers[0] to numbers[4]\n";
print "$numbers[0] \n";
print "$numbers[1] \n";
print "$numbers[2] \n";
print "$numbers[3] \n";
print "$numbers[4] \n";
print "Print from numbers[5] to numbers[10]\n";
print "$numbers[5] \n";
print "$numbers[6] \n";
print "$numbers[7] \n";
print "$numbers[8] \n";
print "$numbers[8] \n";
print "$numbers[8] \n";
print "$numbers[9] \n";
print "$numbers[10] \n";
print "Print from numbers[11] to numbers[15]\n";
print "$numbers[11] \n";
print "$numbers[12] \n";
print "$numbers[13] \n";
print "$numbers[14] \n";
print "$numbers[15] \n";

print "Number of entries in the array: ";
$numberofentries = $#numbers + 1;
print "$numberofentries \n";

Execution

All numbers in a horizontal line:

1 2 3 4 5 6 7 8 9 10 20 30 40 50 60 70 80

Print from numbers[0] to numbers[4]

1

2

3

4

5

Print from numbers[5] to numbers[10]

6

7

8

9

9

9

10

20

Print from numbers[11] to numbers[15]

30

40

50

60

70

Number of entries in the array: 17