$filename = "/home/Ram/Desktop/Perl_file.txt";
open(my@array_a = @array[0..5], '>', $filename) or die "Could not open file '$filename' $!";
print @array_a ;
close @array_a;
print "done\n";