I am running the command using the following

perl perl.pl -b opt_b -p opt_p -c opt_c

if ($#ARGV == -1 || $#ARGV !=6) {
print "ARGV is now reduced to <".@ARGV."> members:\n";#prints ARGV as 6
}