Select Code to Download

my $risultato = SubAcquisisciDatiCampiEsistenti($file,@Databases);
    
...
        print "\n";
        $i+=1;
    }

 
$VAR1 = {
          '6' => {
...
                               ]
                 }
        };