Select Code to Download

print_array2 (\@foo);

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

sub print_array2 
{
...
      print "$_\n";
   }
}