Passing arrays til en subroutine

Hej,

Hvordan kan jeg sende en array med som argument til en subroutine?

sub test0(@)
{
  my @ARRAY = shift();

  foreach $blah (@ARRAY) {
    print $blah;
  }
}

sub test1()
{
  ...
  push(@RESULTS, "blah0");
  push(@RESULTS, "blah1");
  test0(@RESULTS);
}

Je har noget ligende med det virder ikke helt.  Hvad gører jeg forkert??

På forhånd tak.