(@ARGV               # if @ARGV has elements
  &&                 # and
    $ARGV[0] eq '-v' # The first element of @ARGV is '-v'
      &&             # and
        shift);      # remove the first element from @ARGV