#!/usr/bin/perl -wuse strict;my @array = qw(A B C D);print "Scalar value : ", scalar(@array), "\n";print "Highest index: ", $#array, "\n";