#!/usr/bin/perl

use strict;
my $contador=1;

while (<stdin>)
{
	open (fitxersortida, ">./Evalues/$ARGV[0]/$ARGV[1]/Evalue$contador.txt");
	print fitxersortida $_;
	close fitxersortida;
	$contador++;
}