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