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;
	}

##</code><code>##

 
$VAR1 = {
          '6' => {
                   'next' => [
                               'AQ',
                               'AO'
                             ],
                   'fields' => [
                                 'AA,8,U,DE',
                                 'AB,8,U,I',
                                 'AC,14,U,I',
                                 'AD,8,U,DE',
                                 'AE,8,U,DE',
                                 'AF,8,A,DE',
                                 'AG,8,U,DE',
                                 'AH,7,U,I',
                                 'AI,8,U,DE',
                                 'AJ,7,U,I',
                                 'AK,5,A,DE',
                                 'AL,10,A,I',
                                 'AM,2,A,DE',
                                 'AN,14,U,I'
                               ]
                 },
          '5' => {
                   'next' => $VAR1->{'6'}{'next'},
                   'fields' => [
                                 'AA,8,U,DE',
                                 'AB,8,U,I',
                                 'AC,14,U,I',
                                 'AD,8,U,DE',
                                 'AE,8,U,DE',
                                 'AF,8,A,DE',
                                 'AG,8,U,DE',
                                 'AH,7,U,I',
                                 'AI,8,U,DE',
                                 'AJ,7,U,I',
                                 'AK,5,A,DE',
                                 'AL,10,A,I',
                                 'AM,2,A,DE',
                                 'AN,20,U,I',
                                 'AO,20,A,DE,NU',
                                 'AP,10,U,MU'
                               ]
                 }
        };