#!/usr/bin/perl -w
use strict;

my $p; #el comptador
my $q;
my $g;
my $cadena; #em diu si la cadena es forward o reverse
my $sequencia; #és on tinc el fitxer de subseq delque vull modificar la length

$p = 37;

while ($p < 54){
  system ("fastasubseq /home/guillem/$p/subseq$p 0  120000 > /home/guillem/$p/subseqforselenos$p");
   

    $p = $p +1;
}
 

