use warnings;
use strict;
use Data::Dumper;
use Getopt::Std;

print '$#ARGV=',  $#ARGV, "\n";
print Dumper(\@ARGV);

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

__END__

$#ARGV=5
$VAR1 = [
          '-b',
          'opt_b',
          '-p',
          'opt_p',
          '-c',
          'opt_c'
        ];
ARGV is now reduced to <6> members: