my $risultato = SubAcquisisciDatiCampiEsistenti($file,@Databases);
	
	print "\n\n\n ################# Stampa dati FUORI SUBROUTINE ###############\n\n\n";
	
	print Dumper($risultato);
	my $i=0;
	foreach (@Databases) {
		print "\n";
		print "Il primo campo disponibile del file $file sul Database $_ e': ";
		print $risultato->{$_}{next}[$i];
		print "\n";
		$i+=1;
	}