#!/usr/bin/perl -w

use strict;
use warnings;
use Tie::Cvs;

my %tie;

`rm -fr /tmp/tmpcvs; rm -fr /tmp/tmpcvs.co`;
tie %tie, 'Tie::Cvs', "/tmp/tmpcvs";

$tie{jj} = "Jose Joao Almeida\n";
$tie{ambs} = "Alberto Manuel Brandao Simoes\n";
$tie{jj} = "Jose Joao Dias de Almeida\n";
$tie{jj} = "Jose Joao Guimaraes Dias de Almeida\n";

for(keys %tie) { print " ... $_ -- $tie{$_} "};
delete($tie{jj});
delete($tie{jj});
delete($tie{jj});
$tie{jj} = "Jose Joao Antunes Guimaraes Dias de Almeida\n";
delete($tie{jj});