Array Perl

#!/usr/bin/perl -w
use strict;
my @array = (2, 4, 6, 8);
print "the last element is: ", $array[$#array], "\n";