Сопоставление шаблонов Perl при использовании массивов

У меня странная проблема с сопоставлением шаблона.

Рассмотрим приведенный ниже код Perl

#!/usr/bin/perl -w

use strict;
my @Array = ("Hello|World","Good|Day");

function();
function();
function();

sub function 
{
  foreach my $pattern (@Array)  
  {
    $pattern =~ /(\w+)\|(\w+)/g;
    print $1."\n";
  }
    print "\n";
}

__END__

Ожидаемый результат должен быть

Hello
Good

Hello
Good

Hello
Good

Но я получаю следующее

Hello
Good

Use of uninitialized value $1 in concatenation (.) or string at D:\perlfiles\problem.pl li
ne 28.
Use of uninitialized value $1 in concatenation (.) or string at D:\perlfiles\problem.pl li
ne 28.

Hello
Good

То, что я заметил, было альтернативным соответствием шаблону.
Может кто-нибудь объяснить мне, в чем проблема с этим кодом.
Чтобы исправить это, я изменил подпрограмму функции примерно так:

sub function 
{
    my $string;
    foreach my $pattern (@Array)
    {
        $string .= $pattern."\n";
    }
    while ($string =~ m/(\w+)\|(\w+)/g)
    {
            print $1."\n";
    }
    print "\n";
}

Теперь я получаю ожидаемый результат.