Perl Ошибка: Глобальный символ требует четкого определения имени пакета

Question

У меня есть файл, который имеет

#File content 
    word1 -> word2 
word3 -> word4 

и мне нужно поставить это в 2-х разных массивах, как

@array1 = word1, word3 
@array2 = word2, word4 

Мой код ниже

my @mappings = `cat $file_name`; 
foreach my $map (@mappings) { 
    $map =~ s/^\s+|\s+$//g; #Remove leading and trailing spaces 
    next if ($map =~ /^#/); 
    my @Mainarray = split ('->',$map); 
    my @array1 = push(@array1,@Mainarray[0]); **#Error line** 
    my @array2 = push(@array2,@Mainarray[1]); **#Error line** 
    print("Array1: @array1\nArray2:@array2\n"); 
} 

Я получаю эту ошибку:

Global symbol "@array1" requires explicit package name. 
Global symbol "@array2" requires explicit package name. 

Может кто-то, пожалуйста, помогите мне с этим.

Answer 1

путь вы его переосмысление @array1 & @array2 каждый раз через петлю Еогеасп, и пытается установить их равным значению, которое содержит неопределенное значение (сам по себе). Попробуйте это:

my @mappings = `cat $file_name`; 
my @array1; 
my @array2; 
foreach my $map (@mappings) { 
    $map =~ s/^\s+|\s+$//g; #Remove leading and trailing spaces 
    next if ($map =~ /^#/); 
    my @Mainarray = split (/->/,$map); 
    push(@array1, $Mainarray[0]); 
    push(@array2, $Mainarray[1]); 
    print("Array1: @array1\nArray2:@array2\n"); 
}