#!/usr/bin/perl
#output
use warnings;
use strict;
sub output;

$main::data = [1,0,1,2,3,4,5,6,7,8,9,11,2,2,3,34,5,6,7,8,81];
$main::size = scalar @{\@{$main::data}};

for ($main::i=0; $main::i < $main::size; $main::i++)
{
   &output($main::data[$main::i]);
}


sub output 
{
	open my $fh, '>>', "output.txt";
	print $fh "$_[0]";
	print $fh "\n";
	close $fh;
}