my %hash = (tom => ['sally', 'dave', 'jennie'],
            bertie => ['jean']);

$hash{paul} = delete $hash{tom};

foreach (keys %hash)
{
	print "$_ @{$hash{$_}}\n";
}