sub Leggi{
	my @Card;
	my $filecard=shift;

	tie @Card, 'Tie::File', $filecard;

	...

	return \@Card;
}