Select Code to Download

while (my $text=<$testo>){
     for my $key (keys %hash){
       my $value = $hash{$key};
...
    }  
}