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...