print_array2 (\@foo);

sub print_array2 
{
   my $array_ref = shift;
   print join ("\n", @$array_ref), "\n";
}

##</code><code>##

sub print_array2 
{
   my $array_ref = shift;
   foreach (@$array_ref))
   {
      print "$_\n";
   }
}