my @Card=Leggi($filecard);
....
push(@Card,"BEGIN:VCARD");
push(@Card,"FN:$Nuovo->{'FN:'}");
push(@Card,"N:$Nuovo->{'N:'}");
push(@Card,"END:VCARD");
...
Uscita($filecard,\@Card);


sub Leggi{
	my @Card;
	tie @Card, 'Tie::File', $filecard, mode => O_RDWR;
	....
	return @Card;
}

sub Uscita{
	my $filecard=shift;
	my $Card=shift;
		
	untie @$Card;
	...
	exit 0;
}