my $Contacts =  $NameSpace->Folders("Personal Folders")->Folders("Contacts");
 
    my @names = qw(Chuck Charles Charlie Chuckles);
    foreach my $name (@names){
        my $NewContact = $Contacts->Items->Add();
           $NewContact->{FirstName}=$name;
           $NewContact->{LastName}="Charbeneau";
           $NewContact->Save();
           print "Added $name\n";
    }