File Perl

@a1 = (1, 2, 3);
open FILEHANDLE, ">array.dat" or die "Can not open array.dat";
print FILEHANDLE "@a1";
close FILEHANDLE;
open FILEHANDLE2, "@a2 = split(" ", );
print "@a2";
close FILEHANDLE2;