Select Code to Download

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

...
    print $fh map {"$_\n"} @{$_};
    close $fh;
}

my @data = qw( 1 0 1 2 3 4 5 6 7 8 9 11 2 2 3 34 5 6 7 8 81 );
output(\@data);