#!/usr/bin/perl
use strict;
use warnings;
use DBI;


my $dbHandler;
my $insertQuery;
my $sequence;
#create DB connection
my $database = "dbi:mysql:database=Dcdekker:host=mysql.bin";
my $username = "dcdekker";
my $passwrd = "109232";
$dbHandler = DBI->connect($database, $username, $passwrd);

my $Locus_ID;
my $probe;
my $startloc;
my @array = "";


    #haal orfID op#
    my $orfIDqueryText = "SELECT Locus_ID, probe_sequence, startpositie FROM tussenprobes";
    my $orfIDquery = $dbHandler->prepare($orfIDqueryText);
    $orfIDquery -> execute;
    my $stoppositie;

    #get ID from result
    while(my @orfIDarray = $orfIDquery -> fetchrow()){


        ($Locus_ID, $probe, $startloc)= @orfIDarray;

        my $stoppositie = $startloc +25;

        push(@array, $stoppositie);








    }

my $string = join(' ',@array);
print $string;

foreach