You can also pass a referance to an array if you want to keep your params in the same order.

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

 print "Printing array.\n";

 print @AllFileDetails;

 print "\nCalling subroutine now\n";

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

 exit;

 sub WriteToDisk
 {
         ($arraytowrite,$writefile,$text) = @_;
         
         print "\nInside the subroutine 'WriteToDisk' now.\n";
         print "Printing array.\n";

         print @$arraytowrite;
             
         exit;
         
         open (HANDLE,$writefile) || die "Cannot open open output file
+ $writefile for writing\n";                
         
         print HANDLE $ReportGenerated;
         print HANDLE @$arraytowrite;
         close HANDLE;
 }
[download]