{
    local $, = $/;
    open my $file,'>', $filename or die 'Couldn't open file: ", $!;
    print $file @my_array or die $!;
    close $file or die $!;
}