Note that when you're returning a known number of scalars and 1 single array that you won't need a reference. ie the following works just fine:

sub foo
  {
  return($scalar, $anotherscalar, @array)
  }

my($s1, $s2, @a) = foo;
[download]

The array always needs to go last though...