@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 = shift;
	$writefile = shift;
	$text = shift;
	
	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;
}