#!/usr/bin/perluse warnings;use strict;my @array = qw(alpha bravo charlie delta);print "Scalar value : ", scalar @array, "\n";print "Highest element: ", $#array, "\n";