my $perl;
$perl->{contactsData}->[0]->{m_note} = '';
$perl->{contactsData}->[0]->{m_display_name} = 'Lynne';
$perl->{contactsData}->[0]->{relationship}->[0]->{m_relationName} = 'ROWLAND';
...etc