#!/usr/bin/perl 

use strict; 
my $contador=0; 

while (<STDIN>) 
{ 
        print "$ARGV[0] - $ARGV[1] - $contador\n"; 
	open (fitxersortida, "> ./blast_selec/$ARGV[0]/$ARGV[1]/hit$contador.txt"); 
	print fitxersortida $_; 
	close fitxersortida; 
	$contador++; 
}