perlにおいて引数で与えられた配列の空白の部分に対する処理

Question

前提・実現したいこと

perlにおいて、配列の[0]~[7]の間において、引き数として受け取った文字がA〜Hのいずれか１つの文字でないときにエラーを出したい

発生している問題・エラーメッセージ

Use of uninitialized vue within @team in pattern match (m//) at repo line 20.

該当のソースコード

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

@team = @ARGV;
if(@team < 0 || @team > 8){
  print "error\n";
  exit(0);
}

my $count = 0;
my $len = 0;
for(my $i = 0; $i <7 ; $i++){

  if($team[$i] !~ /A|B|C|D|E|F|G|H/ ){
    print "error\n";
    exit(0);
  }
}
print "ok";

試したこと

配列の中身[0]~[7]を0と代入してみたが変わらなかった

補足情報（FW/ツールのバージョンなど）

このソースコードで引数をAとして起動してみると、エラーメッセージとともにerrorと出てしまいます。引数をA B C D E F G Hで与えるとちゃんとokと出てきます。

Answer 1

引数が7個無いからでは？