$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";
[download]

first five string:abcdef ghi ijklmnop q rstu vwxy Can't use string ("6") as a symbol ref while "strict refs" in use at array.pl line 22 (#1) (F) Only hard references are allowed by "strict refs". Symbolic references are disallowed. See perlref. Uncaught exception from user code: Can't use string ("6") as a symbol ref while "strict refs" in use at array.pl line 22. at array.pl line 22

You need to add a variable for the filehandle:

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