use strict;
use warnings;

my $op = shift;
# same as: my $op = shift @ARGV;

print "These are the ", scalar @ARGV, " arguments:\n";
my $i = 0;
for (@ARGV) {
    print "ARGV[$i] = $_\n";
    $i++;
}