use strict;
use warnings;
use JSON;
use Storable qw(freeze);
use IO::File;

my @arr = (1,2,3,4); # sei zufällig
my $j = JSON ->new;

# Array als JSON-String
# übergeben wird eine Referenz auf das Array
file_put_content('arrayfile.json', $j->encode( \@arr ));

# Array als Binärsequenz
# übergeben wird eine Referenz auf das Array
file_put_content('arrayfile.bin', freeze( \@arr ));


Edit:
# Array als Text, jede Zahl auf eine eigene Zeile
file_put_content('arrayfile.text', join("\n", @arr ));



# Schreibe Sequenz
sub file_put_content{
    my $filename = shift;
    my $content = shift;
    
    my $fh = IO::File->new;
    $fh->open($filename, O_CREAT|O_TRUNC|O_BINARY|O_RDWR) or die $!;
    $fh->print( $content );
    $fh->close;
}