use strict;
use warnings;

my @data = qw( 1 0 1 2 3 4 5 6 7 8 9 11 2 2 3 34 5 6 7 8 81 );
open my $fh, '>', 'output.txt' or die $!;
print $fh "$_\n" foreach @data;
close $fh or die $!;