use strict;
use warnings;

my @array = qw/5 8 2 78 5 1 9 9 16/;

# Example 1
for my $number (@array) {
	print $number, "\n";
}

# Example 2
print "\n", 'Number of elements in @array: ', scalar @array;

# Example 3
print "\n\n", 'Number of elements in @array: ', $#array + 1, "\n\n";

# Example 4
for ( my $i = 0 ; $i < @array ; $i++ ) {
	print $array[$i], "\n";
}

# Example 5
my $total;
for my $number (@array) {
	$total += $number;
}

print "\n", '$total is: ', $total;