********************
********************
********************
********************

##</code><code>##

********************
**test**************
********************
********************

##</code><code>##

tie my @array, 'Tie::File', $outputFile or die $!;
my $line = $array[2];
print $line . "\n";
untie @array;

##</code><code>##

tie my @array, 'Tie::File', $outputFile or die $!;
$array[2] = 'This is a test';
untie @array;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;

my $genome_size = 1000; #1300000;
my $outputFile = "/Users/Benbo/Desktop/temp/template.txt";
unlink $outputFile if (-e $outputFile);
print "Start...\n";
add_fragment("Test", 2, 10, 200);
create_template();
print "Done\n";

sub add_fragment{
	my ($ref_id, $identity, $coord, $length) = @_;
	tie my @array, 'Tie::File', $outputFile or die $!;
	# $array[10] = 'This is a test';
	my $line = $array[2];
	print $line .  "\n";
	untie @array;
}

sub create_template{
	for (1..9){
		write_to_file($_ x 50 . "\n", $outputFile);
	}
}

sub write_to_file{
	 my $input = shift;
	 my $outputFile = shift;
     open my $output, ">>", "$outputFile" or die "Could not open $outputFile: $!";
     print $output $input;
}