File Perl

open (FILEHANDLE, ">array.dat") or die ("Cannot open array.dat");
$, = "\n";                 #Set output separator to a comma
@array = (1, 2, 3);
print FILEHANDLE @array;
close FILEHANDLE;