Hi viored,

but $main::data[0] (or any other number) isn't referencing what I want it to. How can I print all the contents of the array to an output file?

First off, I need ask why '$main::' i.e package variable?. I think you really need understand how these things works.
Secondly, it's alot better to use a perl for loop, instead of the "C" type like you are using.
Moreso, you can pass the whole array reference at ONCE into the your output subroutine, instead of one at a time.
Some thing like this:

use warnings;
use strict;
sub output;

my $data = [ 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 2, 2, 3, 34, 5, 6, 7
+, 8, 81 ];

output($data);

sub output {
    open my $fh, '>>', "output.txt" or die $!;
    print $fh $_, $/ for @{ shift(@_) };
}
[download]