Push in for loop doing nothing?

[jluckhurst]

I just started learning Perl less than a week ago... so please bear with me. I'm trying to find a certain key word within a sea of HTML...

while (<FILEHANDLE>)
  {
  my $HTML = &GetHTML($_);
  while ($HTML =~ /<tag>(.*)<\/tag>/)
    {
    our @Results;
    push (@Results, $1) while />(.*)</g;
    shift @Results; # I don't want the first result.
    print @Results;
    }
  }

And the print statement yields nothing. I still have some work to do on the results... Is this a scope issue?

EDIT: Never mind... It was a programmer error.