Perl анализирует аргументы командной строки с помощью команды shift

У меня вопрос относительно анализа аргументов командной строки и использования команды shift в Perl.

Я хотел использовать эту строку для запуска своего Perl-скрипта

/home/scripts/test.pl -a --test1 -b /path/to/file/file.txt

Итак, я хочу проанализировать аргументы командной строки. Это часть моего сценария, где я это делаю

if ($arg eq "-a") {
    $main::john = shift(@arguments);
} elsif ($arg eq "-b") {
    $main::doe = shift(@arguments);
}

Затем я хочу использовать эти аргументы в переменной $command, которая будет выполнена позже

my $var1=$john;
my $var2=$doe;
my $command = "/path/to/tool/tool --in $line --out $outputdir $var1 $var2";
&execute($command);

Вот две проблемы, с которыми я сталкиваюсь:

Не обязательно указывать -a & amp; -b в командной строке. Но теперь происходит следующее: когда я не указываю -a, я получаю сообщение о том, что я использую неинициализированное значение в строке, где определена переменная.

Вторая проблема: $var2 теперь будет равно $doe, поэтому в данном случае он будет /path/to/file/file.txt. Однако я хочу, чтобы $var2 было равно --text /path/to/file/file.txt. Где я должен указать это --text. Это не может быть стандартно в $command, потому что тогда возникнет проблема, если я не укажу -b. Следует ли мне это делать, когда я определяю $doe, но как тогда?