print_array2 (\@foo);

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