ciao,
ho provato a fare questo:
#!/usr/bin/perl;
my %prova;
my %resto;
my $ita;
%prova = ('ita', 2, 'spa', 3);
sub stampa {
%prova = shift;
print $prova{'ita'};
}
stampa(%prova);
ma non funziona, in pratica vorrei passare i dati dell' hash ad una funzione che mi stampi poi il valore di "ita", ma non funziona...