use strict;

   use vars qw(@AllFileDetails);  # I'm using 5.005_03

   $AllFileDetails[0] = "blah, blah, blah";
   $AllFileDetails[1] = "foo, bar, diddledum";

   print "Printing array.\n";

   print @AllFileDetails;

   print "\nCalling subroutine now\n";

   &WriteToDisk("files.txt", @AllFileDetails);

   exit;   sub WriteToDisk
   {
           my ($writefile, @arraytowrite) = @_;
	   # Thanks to davorg for pointing out that I was
	   # only getting part of the array with my earlier
           # code! *blush*

           print "\nInside the subroutine 'WriteToDisk' now.\n";

           print "writefile = $writefile\n";
           print @arraytowrite;
           print "\n";
  
   }