#!/usr/bin/perl
use strict;
use warnings;

# arrays used in scalar context return the size of the array
my $variable = @ARGV;

print "You have $variable command line options\n";

# will be $variable - 1
print "The last subscript in the array is $#ARGV\n";