1 #!/usr/bin/perl 2 3 use strict; 4 5 my @array = ( 'red', 'green', 'blue' ); 6 7 print "\@array is '@array'.\n"; 8 print "Last index is $#array.\n"; 9 print "There are ", scalar(@array), " elements in the array.\n"; 10 11 print "First element is '@array[0]'.\n"; # BAD Syntax 12 print "Last element is '@array[$#array]'.\n"; # BAD Syntax